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{ 

} 


14-Jan-84 14:16:32 


RumStart: 

Bank «- 0, 

Noop, 

GOTOABS[GermRumHookup] {off to Initialize the Mesa world}, 


cl; 
c2; 
c3; 
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30-Mar-84 16:43:26 

> 


getClass: 

{upon entry, otLow must contain the oop whose class Is desired , there must be a pending XDIsp to allow us to test 
Smal1 Integerness, and 12 contains the return linkage. At exit, temp3Low will contain the class oop. If the class Is NOT 
Smalllnteger, templHigh/Low points at the base of the object. LI may be smashed by this routine!!. At exit, temp3Low 


contains the class of the object} 

BRANCH[classIsNotSmallInt, classIsSmalllnt, Oe], cl; 

classIsSmal1Int: 

temp3Low *■ classSmal UntegerPoInter, L2D1sp, c2 ; 

RET[getClass-return], c3; 

cl as sis NotSmal1Int: 

LI <- gettingClass , c2; 

CALL[otMap], c3; 


getClassAlreadyHaveBase: 

templLow *• templLow + classFleldOffset, 
Noop, 

Noop, 


cl, at[gettingClass, 10, otMap-return]; 

c2; 

c3; 


MAR <- [templHigh, templLow + 0] {read the class field}, cl; 
templLow «- templLow - classFleldOffset, L201sp, c2; 
temp3Low <- MD, RET[getClass-return], c3; 


getNewMethodHeader: 

{upon entry, templHigh/Low must be high address of new compiledMethod, L2 contains the return linkage. 

At exit, templLow and uNewMethodHeader are both the new method header and uNewMethodHigh/Low are correct} 


uNewMethodLow «- templLow, c2; 

templLow *■ templLow + objectHeaderSIze, c3; 

MAR <- [tempiHigh, templLow + 0], {start read of method header} cl; 

uNewMethodHigh *■ Q {finish saving CompIledMethod start address}, c2; 

templLow *• MD {method header}, L2Disp, c3; 

uNewMethodHeader templLow, RET[getNewMethodHeader-return] cl; 


getDeltaWord: 

{upon entry temp2High/Low must be pointing at the delta word of an object. LI is the linkage register. The word Is 
returned In templLow} 

MAR «- [temp2High, temp2Low + 0], cl; 

LIDisp, c2; 

templLow «- MD, RET[getDeltaWord-return], c3; 


returnTopOfStack: 

{upon entry, there must be a pending ZeroBr [non-zero Implies smash the top of stack, zero implies do not smash It]. Ll 
is the return linkage register, and the top of stack is returned In otLow} 

MAR [stackHigh, stackLow + 0] {read top of stack}, BRANCH[smashTOS, dontSmashTOS], cl; 


smashTOS: 

MDR <- nllPointer, C2 ; 

otLow «- MD, c3; 

stackLow «- stackLow - 1, cl; 

LIDisp, c2; 
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RET[returnTopOfStack-return], c 3 ; 

dontSmashTOS: 

LlDIsp, c 2; 

otLow MD, RET[returnTopOfStack-return], c3; 


pushTemp3LowAndD1spatch: 

MAR «- [stackHIgh, stackLow + 0], 

MDR <- temp3Low, NextBytecode, 
DISPNI[bytecodes], IpLow ♦- IpLow + PC16, 


cl, at[pr1m1t1veClass, 10, getClass-return]; 

c2; 

c3; 


notYetlnvented: 

Noop, C 2 ; 

templLow <- 1 {mark notYetlnvented}, GOTO[saveSmalltalkState], c3; 


bytecodeFalled: 

Noop, C 2; 

templLow <- 2 {mark bytecode failure}, GOTO[saveSmalltaTkState], c3; 


transferWo rds: 

{upon entry, templHigh/Low must be the destination start address, temp2Low Is the low 16 bits of the source limit 
address, and stackMIgh/Low is the source start address. LI is the return linkage register. Q Is smashed. Because we 
are moving between two volatile contexts, no reference counting is performed} 

temp2Low <* temp2Low + 1 {adjust limit to one past the last word}, cl; 


transferWordsCheck: 

[] «- stackLow - temp2Low, ZeroBr, c2; 

BRANCH[$, returnFromTransferWords], c3; 

MAR «• [stackHIgh, stackLow + 0] {read and smash receiver or argument}, CANCELBRfS, Ofl, cl: 
MDR <- ni'IPointer, C 2 ; 

Q MD, c 3; 

MAR <- [templHIgh, templLow + 0] {put Into new context}, cl; 

MDR <- Q, C 2; 

templLow «- templLow + 1 {up destination index}, c3; 

stackLow «- stackLow + 1, G0T0[transferWordsCheck], cl; 

returnFromTransferWords: 

stackLow <- stackLow * 1 {the last word actually moved}, cl; 

temp2Low ♦* temp2Low - 1, LlDIsp, c2; 

RET[transferWords-return], c3; 
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{ 

Make all free chunk lists.empty by storing notAnObject (8001) at the head of each list. 
timeToCompress: 

rumHIgh «- uRumRecordHIgh, cl; 

rumLow «- uRumRecordLow, c2; 

rumLow «■ rumLow + freeLlstsOffset, c3; 


temp3Low «• TargestFreeChunkSIze, 
temp2Low ♦* 3, 

tempZLow «■ temp2Low RRotl, 

emptyFreeChunkLoop: 

MAR *■ [rumHigh, rumLow + 0], 

MDR «- temp2Low, rumLow *■ rumLow + 1, 
Noop, 

Noop, 

temp3Low «• temp3Low - 1, NegBr, 
BRANCH [emptyFreeChunkLoop, $], 


cl; 
c2 ; 
c3; 


cl; 
c2; 
c3; 

cl; 
c2; 
c3; 


{point to first free chunk list} 


{set list counter} 

{create list terminator * 8001} 


{mark each list} 


Make each real object relocatable by storing Its oop in Its class field and Its class In its offset field, 
free oops. Test purpose bits In the OT entry and do one of the following. 


Mark free chunks and reclaim 


Offset field «- class, class field *■ oop. 

Fall. 

Fail. 

Add oop to free oop list. If refet < 0 (free object), make link odd (class field «• 1). 


reverseOT: 

ot Low <- 2, 

Noop, 

rumLow «* uRumRecordLow, 

MAR «- [rumHigh, rumLow + 
CANCELBR [$, 2], 
otHlgb <- MD, 


objectTableHighOffset], 


reverseOTloop: 

{we can get by with the +1 because a page cross Is Impossible -- 
the OT entry must be at an even address, and only incrementing an 
odd address can cause a page fault} 

MAR «- [otHigh, otLow + 1], 

CANCELBR [$. 2], 

0 <- objectHigh +■ MD, XwdDisp, 

MAR <- [otHigh, otLow + 0], DISP2 [purposeTable], 

ImpossIblePurposeBItsl: 

GOTO [ba11out3], 

impossiblePurposeBits2: 

GOTO [bailouts], 

normalObject: 

{class field «- oop, offset «- class} 

Noop, 

objectLow <- MD, 


objectLow 

Noop, 

Noop, 


objectLow + classFieldOffset, 


MAR *- [objectHigh, objectLow 
MDR «- otLow, 
temp3Low +■ MD, XDisp, 


0 ], 


MAR 4- [otHigh, otLow + 0], BRANCH [$, itnpossIbleClass, 0E], 
MDR *- temp3Low, GOTO [nextOop], 

ImpossIbleClass: 

GOTO [bailouts], 

freeOopOrObject: 

{do nothing to free oop; add free object's oop to free oop 1 
[] «- 0, NegBr, 

objectLow <- MD, BRANCH [freeOop, $], 

MAR «- [rumHigh, rumLow + freePointersOopOffset], 

MDR otLow, CANCELBR [$, 2], LOOPHOLE [wok], 
temp3Low <- MD, 

MAR «- [otHigh, otLow + 0], 

MDR +■ temp3Low, 

objectLow <- objectLow + classFieldOffset, 

MAR ♦- [otHigh, otLow + 1], 

MDR 4- 60, CANCELBR [$, 2], LOOPHOLE [wok], 

Noop, 

MAR 4- [objectHigh, objectLow + 0], 


cl; 
c2; 
c3; 

cl; 
c2; 
c3; 


cl; 
C2; 
c3; 

Cl; 


{start at bottom of OT} 


{otmap oop} 

{dispatch on purpose bits} 


c2, at [1, 4, purposeTable]; 

C2, at [2, 4, purposeTable]; 

c2, at [0, 4, purposeTable]; 


c3; 

Cl; 
c2; 
c3; 


Cl; 

cZ; 
c3; 

{object <- oop} 

cl; 

c2; 

{0T class} 

c2; 

{class field can't be odd} 

k free 

object} 

c2, at 
c3; 

[3, 4, purposeTable]; 

cl; 

c2; 

{add new free oop} 

c3; 


Cl; 

c2; 
c3; 

{fix link field} 

cl; 

c2; 

03; 

cl; 

{fix flag field} 
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MDR *• 1, GOTO [nextOop], 


nextOop: 

Noop, 


freeOop: 

Noop, 

otLow <- otLow + 2, CarryBr, 
BRANCH [reverseOTloop, $], 


c2; {mark object free} 


c3; 


cl; 
c2; 
c3; 


Move all objects as low In object space as possible without straddling a bank boundary. 
otHIgh «- OT base high (object memory limit) 
sourceHIgh, sourceLow object source 
destHigh, destLow «■ object destination 
rumHIgh, rumLow *- rum record base 


compress: 


{Initialize the pointers} 


MAR - [rumHIgh, rumLow + objectMemoryHlghOffset], 

Cl; 


CANCELBR [$, 2], 

C2; 


sourceLow «- sourceHIgh *■ MD, 

c3; 


MAR <- [rumHIgh, rumLow + objectMemoryLowOffset], 

cl; 


destHIgh *- sourceLow LRotO, CANCELBR [$, 2], 

c2; 


sourceLow «- MO, 

c3; 


destLow <- sourceLow, 

cl; 


compressLoop: 

sourceLow «- sourceLow + classFieldOffset, 

c2; 

{sourceLow <* tclass field} 

cl 2: 

Noop, 

c3; 


MAR [sourceHIgh, sourceLow + 0], 

cl; 


sourceLow «* sourceLow - offsetFromSIzeFleldToClassFleld, 

c2; 

{sourceLow *- tsize field} 

otLow «- MD, XDIsp, 

c3; 

{otLow «- free chunk mark or oop} 

MAR *■ [sourceHIgh, sourceLow + 0], BRANCH [$, sklpFreeChunk, 0E], 

cl; 

{skip free object if class field odd} 

sourceLow <- sourceLow - sIzeFieldOffset, 

c2; 

{sourceLow <- tflrst field} 

size <- MD, 

c3; 

{will it fit at destination?} 

0 destLow + size, ZeroBr, 

cl; 


0 *■ destLow + size, CarryBr, BRANCH [$, perfectFIt], 
temp3Low «- otLow, BRANCH [$, ndb2], 

c2; 


c3; 


0 «- 0 + objectHeaderSize, CarryBr, 

cl; 


BRANCH [unreverseOtEntry, hewDestInatlonBank],. 

c2; 


perfectFIt: 

sourceLow «- sourceLow + classFleldOffset, CANCELBR [uoe2, 1], 

c3; 


SklpFreeChunk; 

sourceLow <- sourceLow - sIzeFieldOffset, 

c2; 

{sourceLow *■ tflrst field} 

size *- MD, 

c3; 

[] «. size - objectHeaderSIze, CarryBr, 

cl; 


BRANCH [ImpossIbleSIzel, $], 

C2; 


sourceLow sourceLow + size, CarryBr, GOTO [newSourceBank], 

C3; 


impossibleSIzel: 

GOTO [balloutl], 

c3; 

{hang if (0 <= size < objectHeaderSIze)} 

imposs1bleS1ze2: 

GOTO [balloutl], 

c3; 

{hang if (0 <= size < objectHeaderSIze)} 


{put the remainder of the destination bank on the appropriate free list} 
newDestlnatlonBank: 


temp3Low *■ otLow, GOTO [ndb2], 

ndb2: 

temp2Low *■ -destLow, 

LI <- remainderFree, 

CALL [newFreeChunkj, 

otLow <- rumLow, 
destLow *• destHIgh, 

destHIgh «- destLow + 1 LRotO, LOOPHOLE [nlblTiming], 
destLow *- 0, 

rumLow <- uRumReco rdLow, GOTO [unreverseOtEnt ry] , 


c3; 


cl; {temp2Low <- size of free chunk} 

C2; 

c3; 

cl, at [remainderFree, 10, addToFreeChunkList-return]; 
c2; {set new bank} 
c3; 

cl; 
c2; 


unreverseOtEntry: 

sourceLow <- sourceLow + classFieldOffset, 


c3; 


uoe2: 

MAR *■ [otHIgh, otLow + 0], 
MDR «- destLow, 


cl; {set offset} 
r,2; 
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temp2Low + MD, 

c3; 


MAR *• [sourceHigh, sourceLow + 0], 

cl; 

(restore class) 

MDR «- temp2Low, 

c2; 

sourceLow *- sourceLow - classFleldOffset. 

c3; 


MAR [otHigh, otLow + 1], 

cl; 

(set bank) 

temp3Low t ~0F, CANCELBR [$, 2], 

C2; 

temp2Low 4- MD and temp3Low, 

c3; 


[] «• size - objectHeaderSIze, CarryBr, 

cl; 


0 *- destHigh, BRANCH [impossibleS1ze2, $], 

c2; 


Noop, 

C3; 


MAR <- [otHigh, otLow + 1], 

cl; 


MDR <- temp2Low or Q, CANCELBR [$, 2], LOOPHOLE [wok], 

C2; 


[] <- Q xor sourceHigh, ZeroBr, 

c3; 

(is move necessa 

[] 4 - destLow xor sourceLow, ZeroBr, BRANCH [moveObjectl, $], 

cl; 


BRANCH [$, noMove], 

c2; 


GOTO [molO], 

c3; 



moveObjectl: 

CANCELBR [$, 1], 
GOTO [molO], 


c2 ; 
c3; 


noMove: 

sourceLow sourceLow + size, ZeroBr, c3; 

BRANCH [S, nm2], C l ; 

GOTO [nm4], C 2 \ 

nm2: 

destHigh ♦* 0 + 1 LRotO, LOOPHOLE [nlblTImlng], ' c2; 

nm4: 

destLow *• sourceLow, ZeroBr, GOTO [newSourceBank], c3; 


moveObjectLoop: 
Noop, 


c3; 


mo 10: 

MAR *- [sourceHigh, sourceLow + 0], 
sourceLow «- sourceLow + 1, 
temp2Low MD, 

MAR «- [destHigh, destLow + 0], 

MDR *• temp2Low, destLow <- destLow + 1, ZeroBr, 
Q «- destHigh, BRANCH [mo!2, $], 

destHigh *- Q + 1 LRotO, LOOPHOLE [nlblTImlng], 
[] *• size - 1, ZeroBr, 

BRANCH [bankStraddle, $], 

size <- size - 1, ZeroBr, GOTO [mol4], 

mol 2: 

size size - 1, ZeroBr, 

mol 4: 

BRANCH [moveObjectLoop, $], 

[] <* sourceLow, ZeroBr, GOTO [newSourceBank], 


Cl; 
c2; 
c3; 

cl; 
c2; 
c3; 

cl; 

C2; 

c3; 
cl; 


Cl; 

c2; 

c3; 


newSourceBank: 

0 «- sourceHigh, BRANCH [compressLoop3, $], cl; 

sourceHigh <- Q Q + 1 LRotO, LOOPHOLE [nlblTImlng], c2; 

0 <- otHigh xor 0, ZeroBr, c3; 

BRANCH [compressL.oop2, carveRemalnlngFreeSpace], cl; 


bankStraddle; 

GOTO [ba11out2], 


cl; 


compressLoop2: 

sourceLow *- sourceLow + classFleldOffset, GOTO [cl2], 
compressLoop3: 

sourceLow ♦- sourceLow + classFlel dOf fset, GOTO [c!2]. 


c2; (sourceLow «■ tclass field) 

c2; (sourceLow *• tclass field) 


carveRemainingF reeSpace: 

temp2Low *- ~destLow, 

Q 4- temp2Low + objectHeaderSIze, CarryBr, 

BRANCH [$, carveFreeBank], 

temp2Low *- temp2Low + 1, LI <- carveFreel, 

CALL [newFreeChunk], 

rumLow *- uRumRecordLow, 

0 *■ destHigh, 

destHigh 0 «• 0 + 1 LRotO, LOOPHOLE [nlblTfming], 
Noop, 


c2; (temp2Low *- remainder size - 1) 

c3; (will it fit in one chunk?) 

cl; 

c2; (make remainder a free chunk) 

c3; 

cl, at [carveFreel, 10, addToFreeChunkList-return]; 

c2; (set new bank) 

c3; 

cl; 
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Q <■ 0 xor otHIgh, ZeroBr, 

dostLow 0, BRANCH [carveFreeBankLoopl, flnlsl], 

carveFreeBank: 

temp2Low <- objectHeaderSIze, LI <- carveFree2, GOTO [cfbl4] 
carveFreeBankLoop2: 

temp2Low «- objectHeaderSIze, LI <- carveFree2, GOTO [cfbl2] 
carveFreeBankLoopl: 

temp2Low <- objectHeaderSIze, LI <- carveFree2, GOTO [cfbl2], 

cfbl2: 

Noop, 

Cfbl4: 

size *- temp2Low, CALL [newFreeChunk], 

destlow «- destLow + size, 

Noop, 

Noop, 

rumLow «■ uRumRecordLow, 
tempZLow «- -destLow, LI «■ carveFree3, 

CALL [newFreeChunk], 

rumLow «- uRumRecordLow, 

0 +■ destHIgh, 

destHIgh <- Q Q + 1 LRotO, LOOPHOLE [nlblTimlng], 

Noop, 

0 «* 0 xor otHIgh, ZeroBr, 

destl.ow *- 0, BRANCH [carveFreeBankLoop2, f1n1s2], 

flnlsl: 

Noop, 

f1n1s3: 

Noop, 

GOTO [oopsLeft], 

f1n1s2: 

GOTO [finis3], 


{ 

Subroutine to create a now free chunk on the appropriate list, 
inputs: rum points to rum record 

dest points to free chunk base 
temp2Low Is size of chunk 
smashes: 0, temp2, temp3, rumLow 
saves: input temp3Low In rumLow 

} 

newFreeChunk: 

Noop, 

Noop, 

destLow <- destLow + sizeFieldOffset, 

MAR «- [destHIgh, destLow + 0], 

MDR *- temp2Low, 

destLow <- destLow - sizeFieldOffset, 

MAR «- [rumHigh, rumLow + freePoIntersOopOffset], 
CANCELBR [$, 2], 
otLow «- MD, 

MAR «- [otHIgh, OtLow + 0], 

MDR «- destLow, 
temp2Low «- MD, 

MAR <- [otHIgh, otLow + 1], 

MDR destHigh, CANCELBR [$, 2], LOOPHOLE [wok]. 

Noop, 

MAR *- [rumHigh, rumLow + f reePoIntersOopOff set], 

MDR «- temp2Low, CANCELBR [$, 2], LOOPHOLE [wok], 
rumLow <- temp3Low, GOTO [ returnToPool ] , 


{ 

Count the oops on the free oop list. Then count the objects on the 
oopsLeft: 

MAR «- [rumHigh, rumLow + freePointersOopOffset], 
stackLow <- 0, CANCELBR [$, 2], 
otLow ^ MD, 

oopCountLoop: 

[] otLow LRotO, XDIsp, 

BRANCH [$, countFreeChunks, 0E], 

Noop, 

MAR *- [otHIgh, otLow + 0], 
stackLow <- stackLow + 1, 
otLow *• MD, GOTO [oopCountLoop], 

countFreeChunks: 

GOTO [wordsLeft], 

{ 


C2; 
c3; 


c2; {remainder size is too big for one chunk} 


cl; 


cl; 
c2; 
c3; 

cl, at [carveFree2, 10, addToFreeChunkLIst-return]; 
c2; 
c3; 

cl; 

C2; 
c3; 

cl, at [carveFree3, 10, addToFreeChunkLIst-return]; 

c2; {set new bank} 

c3; 

cl; 

c2; 

c3; 


cl; 

c2; 
c3; 


cl; 


cl; 
c2; 
c3; 

cl; {set free chunk size} 

c2; 

c3; 

cl; {get free oop} 

c2; 

c3; 

cl; 

c2; {set free chunk offset} 

c3; {get free oop link} 

cl; 

c2; {set free .chunk bank} 

c3; 

cl; {fix list head} 

c2; 

c3; {add chunk to free list} 


free chunk lists. 


cl; 
C2; 
c3; 


cl; 

c2; {terminator is odd} 
c3; 

Cl; 

<:2; 
c3; 


c3; 
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Count all the free space on the free chunk lists. 

> 

words Left: 

rumLow +• rumLow + f reeLlstsOff set, Cl; 

templHIgh «- 0, templLow *-0, c2; 

temp3Low «■ 1argestFreeChunkSIze, c3; 

wordCountOuterLoop: 

MAR *■ [rumHigh, rumLow + 0], cl; 

Noop, c2; 

otLow «• MD, c 3 ; 


wordCountlnnerLoop: 

[] «- otLow LRotO, XDisp, 

0 +• templHIgh, BRANCH [$, nextList, 0E], 
stackLow <- stackLow + 1, 

MAR <- [otHigh, otLow + 0], 

0 <- 0 + 1 , 
objectLow «■ MD, 

MAR <- [otHigh, otLow + 1], 

objectLow <- objectLow + sizeFleldOffset, 

objectHigh «- MD, 


cl; 

c2; {list terminator Is odd} 

c3; 

cl; {otmap} 

c2; 
c3; 

cl; 

[$, 2], c2; 

c3; 


MAR <- [objectHigh, objectLow + 0], cl; 
objectLow <- objectLow + offsetFromSizeFieldToClassFleld, c2; 
size «- MD, c3; 

templLow <- templlow + size, CarryBr, cl; 
BRANCH [$, wei12], c 2; 
GOTO [wcil4], C3; 

well2: 

templHIgh Q LRotO, c3; 

wc114: 

MAR [objectHigh, objectLow + 0], cl; 
Noop, C 2; 
otLow «- MD, GOTO [wordCountlnnerLoop], c3; 

nextList: 

Noop, c3; 

Noop, Cl; 
temp3Low *■ temp3Low - 1, NegBr, c2; 
rumLow *- rumLow + 1, BRANCH [wordCountOuterLoop, $], c3; 

setWordLevel: 

rumLow *■ uRumRecordLow, cl; 
Noop, c2; 
Noop, c3; 

MAR *■ [rumHIgh, rumLow + wordLevelLowOff set] , cl; 
MDR <- templLow, CANCELBR [$, 2], LOOPHOLE [wok], c2; 
0 ^ MD, c3; 


MAR «- [rumHIgh, rumLow + wordLevelHighOffset], cl; 
MDR «• templHIgh, CANCELBR [$, 2], LOOPHOLE [wok], C 2; 
0 <- MD, c 3; 

setOopLevel: 

MAR *■ [rumHigh, rumLow + oopLevel LowOf fset] , cl; 
MDR stackLow, CANCELBR [$, 2], LOOPHOLE [wok], c2; 
0 *■ MD, C3; 

MAR «- [rumHigh, rumLow + oopLevelHighOffset], cl; 
MDR <- 0, CANCELBR [$, 2], LOOPHOLE [wok], C2; 
0 *■ MD, GOTO [restoreMesaState], c3; 
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{ 

} 


13-Mar-84 18:29:29 


{ 

} 


The following register equates are used only to Initialize Rum and to save and restore the Mesa emulator state: 


RegDef[MesaStateL, U, 30]; 

RegDef[MesaStateG, U, 46]; 
RegDef[MesaStatePC, U, 50]; 
RegDef[MesaStatePC16, U, 62]; 

RegDef[MesaStatelBPtr, U, 63]; 

RegDef[MesaStatelB, U, 64]; 

{TOS (register 0) gets saved In the STK} 

RegDef[MesaStateRhMDS, U, 66]; 
RegDef[MesaStateRhL, U, 33]; 

RegDef[MesaStateRhG, U, 46]; 
RegDef[MesaStateRhPC, U, 51]; 


{ 

} 


The following equates are copied from Dandelion.df and are only used to save and restore the Mesa emulator state. 


RegDef[TOS, 

R, 

0] 

RegDef[rhMDS, 

RH, 

0] 

RegDef[L, 

R, 

3] 

RegDef[rhL, 

RH, 

3] 

RegDef[G, 

R, 

4] 

RegDef[rhG, 

RH, 

4] 

RegDef[PC, 

R, 

6] 

RegDef[rhPC, 

RH, 

6] 


{todo — we can probably do better saving the RH registers} 

fromMesa: 

STK TOS, push, 

MesaStatoL «- L, 

MesaStateG <- G, 

MesaStatePC <- PC, 

PC «- LShlftl PC, SE «- pcl6, 

MesaStatePC16 <- PC, 


cl, at[doBytecodes]; 

c2; 

c3; 

cl; 
c2; 
c3; 


{now save the RH registers--somewhat messy since you can’t write U reg directly from an RH register} 


0 +• rhMDS, cl; 
MesaStateRhMDS <- 0, c2; 
L «- rhL, C3; 

MesaStateRhL «■ L, cl; 
G <- rhG , c2; 
MesaStateRhG «- G, c3; 

PC «■ rhPC, cl; 
MesaStateRhPC <- PC, c2; 
PC <- ErrnIBnStkp, c3; 

PC PC LRot 12, cl; 
PC «• -PC, {get it back to Its non-negated state} c2; 
MesaStatelBPtr «- PC, YDisp, c3; 

DISP4[dra1nIB,0c], cl; 


GOTO[drained], {state 
PC <- 1b, {state * byte, 
MesaStatelB *■ PC, 


a empty, nothing to do} 
grab It} 


c2, at[0c,lO.dralnIB]; 
c2, at[0d,lO.dralnIB]; 
c3; 


Noop, cl; 

G0T0[dra1ned], c2; 


IBspIn: 

G0T0[IBspin], {state = full, cannot happen...}, 


c*, at[0e,lO.dralnIB]; 


PC ■*- ib, {state = word, get first byte} c2, at[0f, lO.dralnIB]; 

PC «- PC LRot8, c3; 

L 1b, {get second byte} cl; 
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MesaStatelB <- PC or L, G0T0[dra1 ned], 


drained: 

Noop, 

LODIsp, 

DISP2[doBytecodes0rStabl11izatlon], 


GOTO[getSmantalkState], 
G0T0[t1moToStabilIze], 
G0T0[t1m«ToCompress], 


c2; 

c3; 

cl; 

c2; 

c3,at[0, 4, doBytecodesOrStabllllzatlon]; 
c3,at[l, 4, doBytecodesOrStablillzatlon]; 
c3, at[2,4,doBytecodesOrStabl11Izatlon]; 


restoreMesaState: 


{restore the RH registers} 

rhMDS <- MesaStateRhMDS, cl; 

rhL «- MesiaStateRhL, c2; 

rhG ♦* MesaStateRhG, c3 ; 

rhPC «- MesaStateRhPC, cl; 


{and now the R registers} 

{restoring the PC16 register for Mesa Is tricky. Can’t assign to 
reading It toggles the state.} 

PC *- MesaStatePC16, XDisp, 

XC2npcDisp, BRANCH[pcl6wasZero, pcl6was0ne, Oe], 
pclOwasZero: 

BRANCH[$, wasZeroIsOk, Oe], 

Cln <- pc!6, GOTO[okPc], 
wasZeroIsOk: 

GOTO[okPc], 


pclBwasQne: 

BRANCH[wasOneIsOk, $, Oe], 

Cln - pcl6, GOTO [okPc], 
wasOnelsOk: 

G0T0[okPc], 


okPc: {now restore the IB state} 

IBPtr <* 1 , {drain any Smalltalk bytecodes}, 

PC * 1b, 

Noop, 

PC *■ MesaStatelBPtr, XDisp, 

DISP4[restoreIB, 0c], 

GOTO[IBdone], {state was empty}, 

PC «- MesaStatelB, 

IB *- PC LRotO, {state was byte}, 

IBPtr 1, 

G0T0[IBdone], 

IB «- MesaStatelB, {state was word}, G0TO[IBdone], 

IBdone: 

PC <- MesaStatePC, 

L «■ MesaStateL, 

G +- MesaStateG, 

Noop, 


It directly, so we must read It to determine it*s current state, but 

c2; 
c3; 

cl; 

c2; 

c2; 

Cl; 
c2; 
c2; 

c3; 

cl; 
c2; 
c3; 

cl; 

c2,at[0c,10,restorelB]; 

c2, at[0d,10,restorelB]; 

c3; 

cl; 

c2; 

c2,at[Of,10,restorelB]; 

c3; 

cl; 
c2; 
c3 ; 


punt: 


Bank *■ 0, 

cl; 

Noop, 

c2; 

G0T0ABS[retu rnF romRumBank], 

c3; 
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Rumlnltlalizatlon: 

uRumRecordHIgh «- TOS, 
0 *■ STK, pop, 
uRumRecordLow Q, 


cl, at[doIn1tial1zat1on]; 

cZ; 

c3; 


Bank 0, 

Noop, 

G0T0A8S[returnFromRumBank], 


cl; 

C2; 

c3; 


timeToStabilIze: 

L0 «• mesaRequestedStabllizatlon, 
otHIgh <- Ob, 

CALL[stab11ize], 

Noop, 

stabilize-return]; 

Noop, 

GOTO[restoreMesaState], 


cl; 
c2; 
c3; 

cl, at[mesaRequestedStab11Izatlon, 10, 

c2; 
c3; 
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{Jump} 


jumpl: 

temp3Low *- 2 , G0T0[jumpUncond1t1onally], - 

cl. bytecode[90]; 

jump2: 

temp3Low ♦- 3, G0T0[jumpUncond1t1onal ly]. 

cl, bytecode[91]; 

jump3: 

temp3Low *• 4, G0T0[jumpUncondit1onally], 

cl, bytecode[92]; 

jump4: 

temp3Low 6, G0T0[jumpUncond1t1onany], 

cl, bytecode[93]; 

jumps: 

temp3Low *- 6, GOTO[jumpUnconditional ly]. 

cl, bytecode[94]; 

jumpO: 

temp3Low 7, G0T0[jumpUncondit1onany], 

cl, bytecode[96]; 

jump7: 

temp3Low <- 8, G0T0[jumpUncondit1ona11y], 

cl, bytecode[96]; 

jump8: 

temp3Low «- 9, G0T0[jumpUncondltlonally]. 

cl, bytecode[97]; 

{Pop and Jump on Falise} 


popAndJumplOnFalse: 

temp3Low *• 2, GOTO[popAndJumpOnFalse], 

cl, bytecode[98]; 

popAndJump20nFal!»e: 

temp3Low +■ 3, GOTOfpopAndJumpOnFalse], 

cl, bytecode[99]; 

popAndJump30nFal.se: 

temp3Low «• 4, GOTO[popAndJumpOnFalse], 

cl, bytecode[9a]; 

popAndJump40nFalse: 

temp3Low +• 5, GOTO[popAndJumpOnFalse], 

cl, bytecode[9b]; 

popAndJump50nFalse: 

temp3Low «- 6, GOTO[popAndJumpOnFalse], 

cl, bytecode[9c]; 

popAndJump60nFalse: 

temp3Low <- 7, GOTO[popAndJumpOnFalse], 

cl, bytecode[9d]; 

popAndJump70nFalse: 

temp3Low *• 8, GOTO[popAndJumpOnFalse], 

cl, byteccde[9e]; 

popAndJump80nFa!se: 

temp3Low «- 9, GOTO[popAndJumpOnFalse], 

cl, byt«code[9f]; 


popAndJumpOnFalse: 

temp2Low *- uCurrentMethodLow, backupIsOBytes, c2 ; 

tl «- branchlfFalse, G0T0[Jump-getTopOfStack] c3; 


{Extended Jump} 


extendedJumpO: 

temp3Low <- Ofc, GOTO[extendedJump], 
extendedJumpl: 

temp3Low »- Ofd, GOTO[extendedJump], 
extendedJump2: 

temp3Low +* Ofe, GOTO[extendedJump], 
extendedJump3: 

temp3Low +■ Off, GOTO[extendedJump], 
extendedJump4: 

temp3Low +■ 00, GOTO[extendedJump], 
extendedJump5: 

temp3Low «- 01, GOTO[extendedJump}, 
extendedJumpO: 

temp3Low «- 02, GOTO[extendedJump], 


cl, bytecode[OaO]; 
cl, bytecode[0al]; 
cl, bytecode[0a2]; 
cl, bytecode[0a3]; 
cl, bytecode[0a4]; 
cl, bytecode[0a5]; 
cl, bytecode[0a6]; 
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extendedJump7: 

temp3Low <- 03, G0T0[extendedJump], 


cl, bytecode[0a7]; 


extendedJump; 

temp3Low «- temp3Low LRot8 {get the left byte correct}, c2; 

temp3Low «- temp3Low + ib + 1, c 3; 

IpLow <- ipLow + PC16 (account for the extension byte}, G0T0[jumpUncond1tionally], cl; 


{Extended Jump on True} 


extendedJumpOnT rueO: 

temp3Low «- 0, LI ♦* branchlfTrue, GOTOfextendedJumpTrue], 
extendedJumpOnT ruel: 

temp3Low 1, LI <- branchlfTrue, GOTO[extendedJumpTrue], 
extendedJumpOnT rue2: 

temp3Low *■ 2 , LI +• branchlfTrue, GOTO[extendedJumpTrue], 


extendedJumpOnTrue3: 

temp3Low f 3, LI <* branchlfTrue, GOTO[extendedJumpTrue], 


cl, bytecode[0a8]; 
cl, bytecode[0a9]; 
cl, bytecode[Oaa]; 
cl, bytecode[Oab]; 


extendedJumpTrue: 

temp3Low temp3Low LRotG {get high bits of displacement}, GOTO[extendedJumpOnCondition], c2; 


{Extended Jump On False} 


extendedJumpOnFal! seO: 

temp3Low 0, LI «• branchlfFalse, GOTO[extendedJumpFalse], 
extendedJumpOnFalsel: 

temp3Low 1 , LI *- branchlf Fal se, GOTO[extendedJumpFal se], 
extendedJumpOnFalse2: 

temp3Low «- 2, LI «- branchlfFalse, GOTO[extendedJumpFalse], 


extendedJumpOnFalse3: 

temp3Low «- 3, LI «- branchlf Fal se, GOTO[extendedJumpFal se] , 


cl, bytecode[Oac]; 
cl, bytecode[Oad]; 
cl, bytecode[Oae]; 
cl, bytecode[Oaf]; 


extendedJumpFalse: 

temp3Low temp3Low LRotfi {get high bits of displacement}, GOTO[extendedJumpOnCondition], c2; 


extendedJumpOnCondition: 

temp3Low «- temp3Low + ib {and low bits} + l{and low bits}, backupIslByte, c3; 

ipLow «• ipLow + PC16, {account for extension byte} cl; 

temp2Low <- uCurrentMethodLow {point at base of method}, c2; 

GOTO[jump-getTopOfStack], c 3; 


jump-getTopOfStack: 

{upon entry, temp3Low must contain the number of bytes by which to adjust the InstructionPointer. temp2Low must point at 
the base of the object header. pcl6 and templLow must both be correct. LI contains the constant branchlfTrue or 
branchlfFalse} 


MAR <- [stackHigh, stackLow+ 0] {read top Of stack}, cl; 
MDR *■ nilPointer, {and smash it} c2; 
templLow «- MD, C 3 .| 

[] «* templLow xor falsePointer, ZeroBr, cl; 
[] «■ templLow xor truePointer, ZeroBr, BRANCH[$, tosIsFalse], c2; 
BRANCH[tosI$NotBoolean, tosIsTrue], c3; 

tosIsFalse: 

CANCELBR[$, 1], stackLow *■ stackLow - l, LIDIsp, {do we want to branch} c3; 
DISP2[falseTos], c j. 


NextBytecode, {no branch} 
DISPNI[bytecodes], IpLow *• IpLow + PC16, 


c2, at[branchIfTrue, 4, falseTos]; 
c3; 
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Ip Low *- IpLow - temp2Low, 

GOTO[alterIp] {take branch}, 

tosIsTrue: 

stackLow stackLow - 1, LlD1sp,{do we want to branch} 
DISP2[trueTos], 


c2, at[branchlfFalse, 4, falseTos]; 
c3; 


cl; 

c2; 


IpLow IpLow - temp2Low, G0T0[alterIp] {take branch}, 


c3, atfbranchlfTrue, 4, trueTos]; 


Noop {no branch}. 

Noop, 

NextBytecode, 

DISPNI[bytecodes], IpLow <- IpLow + PC16, 


c3, at[branchlfFalse, 4, trueTos]; 
cl; 

C2; 
c3; 


tosIsNotBoolean: 

{rats, put the stack back} 

{todo — more of this when send Is Implemented} 

MAR <- [stackHIgh, stackLow + 0], cl; 

MDR *- templLow, C 2 ! 

Noop, c3 : 

G0T0[bytecodeFa11ed], cl* 


jumpUnconditlonally: 

temp2Low <- uCurrentMethodLow, C 2; 

ipLow *- IpLow - temp2Low, c3 ! 


alterlp: 

{upon entry, temp3Low must contain the new displacement into the object Including the object header. temp2Low must be the 
base of the current method header. IpLow must be the current word offset Into the compIledMethod exclusive of the header 
pcl6 must be correct} 

ipLow «- LShiftl IpLow, SE <- pcl6, {yields current byte offset Into compiled method Including object header}, cl; 
temp3Low «- temp3Low + IpLow {calculate the new location}, c2; 

ipLow «* temp2Low {point at base of object header}, IBPtr «- 1 {drain all bytecodes from Instruction buffer}, c3; 

Noop, ci ; 

Noop, C 2 < 

Ybus <- 1b, GOTOff1xuplnstructlonPointer], C 3; 
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Reserve[l,7F]; 

{END} 
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{for each of these three entry points, uClassToInstantlate must be the 
temp3H1gh is the return linkage register!11} 

createlnstanceWithPoInters: 

temp2Low «- nilPointer, 

templLow *■ hasPointers, GOTO[createInstance], 

createlnstanceWithBytes: 
temp2Low *■ 0, 

[] «* temp3Low LRotO, XDisp, 
temp3Low «■ temp3Low + 1, BRANCH[byteCountIsEven, byteCountlsOdd, Oe], 


byteCountlsEven: 

templLow «- 0, G0T0[byteSh1ft], 

byteCountlsOdd: 

templLow *■ isOdd, G0T0[byteShift], 
byteShift: 

temp3Low «- RShiftl temp3Low, SE <- 0, GOTO[createInstance], 

createlnstanceWithWords: 
tempZ.Low «* 0, 

templLow «- 0, G0T0[createInstance], 


createLargePosItivelnteger: 

templLow «- classLargePositivelntegerPointer, 
uClassToInstantiate <- templLow, 

GOTO [createlnstanceWithBytes] 


oop of the class, temp3Low is the size in words or bytes. 


Cl; 

c2; 


cl; 
c2; 
c3; 


cl; 


cl; 


c2; 


cl; 
c2; 


Cl; 

c2; 
c3; 


createlnstance: 

(temp3Low is number of words in object less objectHeaderSize, 

templLow Is the value of the low two bits of the delta word, 
temp2Low is the default value with which to initialize the object} 


uFieldType «- templLow 

{save these for Initializing the object and its ot entry}, c3; 

uDefault +• temp2Low, c j. 
temp3Low +• temp3Low + objectHeaderSize, CarryBr, c2; 
0 «- objectSizeTestLimit, BRANCH[$, masslveSenility2], c3; 

[] <- temp3Low + Q, CarryBr, c i ; 
BRANCH[$, requestedSizeTooBig], c2; 
temp2H1gh uRumRecordHigh, C 3 | 

temp2Low <- uRumRecordLow, C l ; 
templLow «- largestFreeChunkSize, c2; 
[] *■ temp3Low - templLow, CarryBr, c3; 

uRequestedSize temp3Low, BRANCH[trySpecifIcList, useBigFreeList], cl; 


trySpecIfIcLIst: 

temp2Low «• temp2Low + freeListsOffset, c2; 

Noop, c3 | 


MAR <- [temp2High, temp2Low + temp3Low], cl* 
CANCELBR[$, 2], c2 j 
otLow <- MD, XDisp, L2 *■ creatinglnstance 

{set up for the nextFreeChunk call}, c3; 


uNewObject <- otLow, BRANCH[got0ne, tryBIgList, 0e], 


Cl; 


gotOne: 

LI <- gettingNextFreeChunk {needed for otMap2 call Inside nextFreeChunk}, CALL[nextFreeChunk], c2; 


MAR <- [temp2High, temp2Low + temp3Low] {update free 
nextFreeChunk-return]; 

MDR <- Q, CANCELBR[$, 2], L00PH0LE[wok], 

{save new object's address} 

0 <- templHIgh, 

uNewObjectHIgh «• Q, 
uNewObjectLow «• templLow, 

G0T0[allocate], 


ist head} cl, at[creatinglnstance, 10, 

c2; 

c3; 

cl; 
c2; 
c3; 


tryBigLIst: 

temp2Low «■ uRumRecordLow, G0T0[useB1gFreeL1stA], * c2 » 

useBigFreeList: 
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{upon entry, temp2High/Low contains the rum record address. 

uRequestedSIze Is valid. temp3Low Is the requested size} 

Noop, 

useBIgF reeLlstA: 

uPredecessor <- -otLow xor otLow {yields -1}, 

1.1 «- gettingNextFreeChunk {for otmap call In nextFreeChunk}, 

MAR *• [temp2High, temp2Low bigFreeLlstOffset], 

1-2 <- consIderlngBIgChunks, 
temp3Low «- temp3Low + objectHeaderSize, CarryBr, 

{yields minimum spllttable block size} CANCELBR[$, 2], 
otLow <- MD {current free chunk}, XDIsp {test if more}, 

BRANCH[$, massiveSenil1ty4], 

consIderNextBIgFreeChunk: 

uNewObject «- otLow, BRANCHES, outOfChunks, Oe], 
uCurrentl : reeChunkOop +• otLow, CALL[nex’tFreeChunk], 

uNextFreeChunk <- Q {remember next free chunk}, 

nextFreeChunk-return]; 

templLow «- templLow + s IzeFleldOf fset, 

Noop, 


c2; 


c3; 


cl 

c2 

c3 


cl; 
c2; 


cl, at[consideringB1gChunks, 10, 


c2; 
c3; 


MAR *■ [templHIgh, templLow + 0], cl; 
Noop, c2; 
0 «- MD {size of current free chunk}, c3; 

[] *- 0 xor uRequestedSIze, ZeroBr, cl; 
[] *■ 0 - temp3Low, CarryBr, BRANCH[$, exactFIt], c2; 
BRANCHEiterate, canSubdlvIde], c3; 


Iterate: 

uPredecessor *- otLow, 

Noop, 

otLow «* uNextFreeChunk, XDisp, GOTOEconsIderNextBIgFreeChunk], 


cl; 
c2; 
c3; 


exactFIt: 

templLow «- templLow - sIzeFleldOffset, CANCELBRE$, 1], c3; 

0 templHIgh, cl; 

uNewObjectLow «- templLow, c2; 

uNewObjectHigh «- Q, GOTOEspl ice], c3; 


canSubdlvIde: 

temp3Low +• uRequestedSIze, cl; 

temp3Low <- Q {current chunk size} - temp3Low {requested size} {yields excess size}, c2; 

0 «■ templHIgh {part of new objects address}, c3; 

MAR <- Etemp2High, temp2Low + freePolntersOopOffset], cl; 

uNewObjectHigh «- Q, CANCELBRE$, 2], c2; 

otLow *- MD {first free oop}, XDisp, c3; 


BRANCHES, outOfOops, Oe], 
Noop, 

Noop, 


Cl; 
c2; 
c3; 


{write the new size of the current free chunk (templHigh/Low still pointing at Its size field)} 
MAR «• [templHigh, templLow + 0], cl; 

MDR <* temp3Low, c2; 

templLow +• templLow - sizeFieldOffset {point at base of the current free chunk}, c3; 

{write address of new object Into its ot entry} 

MAR «- {otHigh, otLow 1], cl; 

MDR templHigh, CANCELBR[$, 2], LOOPHOLEEwok], c2; 

0 *- templLow {base of free chunk we split} + temp3Low {excessSize} {yields base of new object}, c3; 


MAR {otHigh, otLow + 0], Cl; 

uNewObjectLow <- MDR Q, c2; 

0 ♦* MD {link to next free oop}, c3; 

MAR *- EtempZHigh, temp2Low + freePointersOopOffset], cl; 

MDR «- Q {update free oop list head}, C'ANCELBR[$, 2], LOOPHOLEEwok], c2; 
uNewObject otLow, c3; 

{should we move the current free chunk to a small free chunk list?} 
temp2Low TargestFreeChunkSizeLessOne, cl; 

E] <- temp3Low {excess size} - temp2Low, CarryBr, c2; 

otLow «- uCurrentFreeChunkOop, BRANCH[$, itsFIneWhereltls], c3; 

LI movIngFromBigToSmall, cl; 

Noop, c2; 

CALLEaddToFreeChunkList] {this call returns directly to splice}, c3; 


splice: 

otLow *- uPredecessor, XDisp, LI «- spl IcingBigFreeLlst, 


cl, atEmovingFromBIgToSmall, 10, 
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addToFreeChunkList-return]; 

temp2H1gh «* uRumRecordHigh, BRANCH[d1dHavePredecessor, noPredecessor, Oe], c2; 
noPredecessor: 

temp2Low <- uRumRecordLow, c3; 

MAR «- [temp2High, temp2Low + bigFreeListOffset],G0T0[1inkNextChunk], cl; 


dldHavePredecessor; 

CALL[otMap2], 

templLow *■ templLow + chunkLInkOffset. 
Noop, 

Noop, 


c3; 

cl, at[splIcingBigFreeLlst, 10, otMap2-return]; 

c2; 

c3; 


MAR <- [templHigh, templLow + 0], GOTOpInkNextChunk], 


cl; 


1inkNextChunk: 

MDR +• uNextFreeChunk, CANCELBR[b1gL1stWrapup, 2], LOOPHOLE[wok], c2; 


ItsFIneWhereltls: 

Noop, cl; 

Noop, C 2 ; 

bigLIstWrapup: 

otLow «- uNewObject, GOTO[allocate], c3; 


outOfChunks: 

G0T0[mass1veSenility], c2; 

outOfOops: 

Noop, c2; 

massiveSenllIty: 

Noop, c 3; 

massIveSenll1ty2: 

G0T0[bytecodeFailed], cl; 

massiveSenllity4: 

CANCELBR[bytecodeFailed, OF], cl; 

requestedSizeTooBig: 

G0T0[massiveSenil1ty2], c3; 


{ Adjust the memory and oop levels and signal Mesa if either is below its alert level and Mesa has not yet been signalled. 

(((wordLevel < wordAlertLevel) or: [oopLevel < oopAlertLevel]) and: [alreadyAlerted = 0]) IfTrue: [signalAlert <- 1. MesalntRq] 


allocate: 

temp2High «- uRumRecordHigh, cl; 
temp2Low *- uRumRecordLow, C 2 ; 
Noop, c3; 

MAR <- [temp2High, temp2Low + oopLevelLowOffset], cl; 
CANCELBR [$, 2], c 2; 
temp3Low •- MD, c3; 

MAR «- [temp2High, temp2Low + oopLevelLowOffset], cl; 
MDR «- temp3Low ♦- temp3Low - 1 , CANCELBR [$, 2 ], LOOPHOLE [wok], c2; 
Noop, c3; 

lowOopTest: 

MAR «- [temp2High, temp2Low + oopAlertLeveHowOffset], cl; 
CANCELBR [$, 2], c 2; 
0 «• MD, c3; 

Noop, cl; 
0 «• temp3Low - 0, CarryBr, c2; 
BRANCH [$, decreaseWordLevel], c3; 

MAR <- [temp2High, temp2Low + alreadyAlertedOffset], cl; 
CANCELBR [$, 2], C 2; 
0 «- MD, C3; 

[] «■ Q, ZoroBr, cl; 
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BRANCH [decreaseWordLevel2, $], 

Noop, 

MAR «- [temp2High, temp2Low + signalAlertOffset], 

MDR «- 1, CANCELBR [$, 2], LOOPHOLE [wok], 

MesalntRq, GOTO [decreaseWordLevel], 

decreaseWordLevel2: 

Noop, 

decreaseWordLevel: 

MAR <- [temp2High, temp2Low + wordLevelLowOf f set], 
temp3Low +■ uRequestedSize, CANCELBR [$, 2], 

Q <■ MD, 

MAR *- [temp2H1gh, temp2Low + wordLevelLowOffset], 

MDR «* temp3Low 4- Q - temp3Low, CANCELBR [$, 2], 
LOOPHOLE [wok], CarryBr, 

BRANCH [wordLevelBorrow, lowMemoryTestHighGetData], 
wordLevelBorrow: 

MAR [temp2H1gh, temp2Low + wordLevelHighOffset], 
CANCELBR [$, 2], 

Q 4- MD, 

MAR *• [temp2H1gh, temp2Low + wordLevelHighOffset], 

MDR «- 0 ~ 1, CANCELBR [$, 2], LOOPHOLE [wok], 
templLow <- Q - 1, GOTO [lowMemoryTestHlghHaveData], 

lowMemoryTestHighGetData: 

MAR 4- [temp2H1gh, temp2Low + wordLevelHighOffset], 
CANCELBR [$, 2], 
templLow «- MD, 

lowMemoryTestHlghHaveData: 

MAR «- [twnp2H1gh, temp2Low + wordAlertLevelHIghOffset], 
CANCELBR [$, 2], 

Q <- MD, 

0 *• 0 - templLow, CarryBr, 

[] <- 0, ZeroBr, BRANCH [reallyAllocatel, $], 

BRANCH [$', TowMemoryTestLow], 

MAR «- [temp2H1gh, temp2Low + al readyAlertedOff set], 
CANCELBR [$, 2], 

Q 4- MD, 

[] «- Q, ZeroBr, 

BRANCH [lowMemoryTestLow2, $], 

Noop, 

MAR <- [temp2High, temp2Low + slgnalAlertOffset], 

MDR 1, CANCELBR [$, 2], LOOPHOLE [wok], 

MesalntRq, GOTO [reallyAllocate3], 

lowMemoryTestLow2: 

Noop, 

lowMemoryTestLow: 

MAR *- [temp2High, temp2Low + wordAlertLevelLowOffset], 
CANCELBR [$, 2], 

0 <“ MD, 

Noop, 

Q temp3Low - Q. CarryBr, 

BRANCH [$, reallyAllocate3], 

MAR <- [temp2High, temp2Low + al readyAlertedOff set], 
CANCELBR [$, 2], 

Q *■ MD, 

[] *- 0. ZeroBr, 

BRANCH [reallyAllocate2, $], 

Noop, 

MAR *• [temp2High, temp2Low + slgnalAlertOffset], 

MDR 1, CANCELBR [$, 2], LOOPHOLE [wok], 

MesalntRq, GOTO [reallyAllocate3], 

reallyAllocatel: 

CANCELBR [reallyAllocate3, 1], 

reallyAllocate2: 

Noop, 

reallyAllocate3: 

Noop, 

templHigh *- uNewObjectHIgh, 
templLow <- uNewObjectLow, 


c2; 
c3j 

cl; 
c2; 
C3; 


c3; 


cl; 

c2; 

c3; 

Cl; 

c2; 
c3; 


cl; 
c2; 
C3; 

Cl; 
C2; 
c3; 


cl; 

C2; 

c3; 


cl; 
c2; 
c3; 

Cl; 
C2; 

c3; 

cl; 

C2; 

C3; 

cl; 
c2; 
c3; 

cl; 

c2; 

c3; 


c3; 


cl; 
c2; 
c3; 

cl; 

C2; 

c3; 

cl; 
c2; 
c3; 

Cl; 

c2; 
c3; 

cl; 
c2; 
c3; 


c3; 


c3; 


cl; 
c2; 
c3; 


temp3Low *■ uRequestedSIze, cl; 

temp3Low <- templLow + temp3Low 

{low 16 bits of address of one word 

past the end of the object}, c2; 

templLow <- templLow + deltaWordOffset, ’ c3; 

{initialize the object header now} 
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MAR <- [templHigh, templLow + 0], cl; 

{the following MDR«- sets the delta ref count, the unused field, the clean 

field, the containsLambda field, and the isVolatile field all to zero. 
It also sets the oddBytes and hasPointers field appropriately} 

MDR *■ uFieldType, c2; 

IfEqual [Waffle, 1, SkipTo[waffleOnly], ]; 

templLow «* templLow + offsetFromDeltaWordToSizeField, c3; 

IfEqual [Waffle, 0, SkipTo[endWaffleOnly], ]; 

waffleOnly1 

templLow «* templLow + offsetFromDeltaWordToDiskWord, c3; 

MAR *• [templHigh, templLow + 0], cl; 

MDR 0, c2; 

templLow *• templLow + offsetFromDiskWordToSizeField, C3; 

endWaffleOnly! 

MAR +- [templHigh, templLow + 0], * cl; 

MDR uRequestedSize, c2; 

templLow «* templLow + offsetFromSizeFieldToClassField, c3; 

MAR <- [templHigh, templLow + 0], cl; 

MDR uClassToInstantiate, c2 ; 

{ok, object header is done, now zap the object body} 

templLow <- templLow + offsetFromClassFieldToFirstField, c3; 

InitialIzeObjectBody: 

Noop, cl; 

[] *■ templLow - temp3Low, ZeroBr, c2; 

BRANCH[$, allZapped], c3; 

MAR <- [templHigh, templLow + 0], Cl; 

MDR «- uDefault, c2; 

templLow «- templLow + 1, C0T0[1nitialIzeObjectBody], c3; 


allZapped: 


{the object header and object body are now completely initialized, now fix up the object table entry} 


MAR 4* [otHigh, otLow + 1] {read second word of ot entry}, cl; 

CANCELBR[$, 2], c2; 

0 «■ MD, c3 ; 

{the only thing worth preserving in the ot entry is the segment number. 

clobber everything else, turn on the untouched bit and write ot entry} 

MAR <- [otHigh, otLow + l] {read second word of ot entry}, cl; 

0 *■ MDR *• 0 and Of, CANCELBR[$, 2], L00PH0LE[ wok], c2; 

temp3Low *■ temp3High 

{retrieve return link cause addToZeroCountTable will smash it}, 

L2 4- creatingAnlnstance, c3; 


temp2Low +- temp3Low {save return link}, CALL[addToZeroCountTable], cl; 


Noop, 

addToZeroCountTabl©Return]; 

Ll <- upClassAtlnstantlatlon, 

otLow *• uClassToInstantiate, XDIsp, CALL[refi], 

otLow uNewObject, 

Xbus *■ temp2Low LRotO, XDIsp, 

RET[createlnstance-return], 


cl, at[creatingAnInstance, 10, 

c2; 

c3; 

cl, at[upClassAtInstantiat1on, 10, refIReturn]; 
c2; 
c3; 


nextFreeChunk: 

CALL[otMap2], 

templLow * templLow + chunkLinkOffset, 

Noop, 

Noop, 

MAR <- [templHigh, templLow + 0], 

templLow <- templLow - chunkLinkOffset, L2Disp, 

0 *■ MD, R£T[nextFreeChunk-return], 


c3; 

cl, at[gettingNextFreeChunk, 10, otMap2-return]; 
c2; 

c3; a . 

cl; 
c2 ; 
c3; 
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addToFreeChunkLIst: 

{upon entry, templHigh/Low must be the base of the object to add to the free list. otLow must be the oop of the free 
chunk to put on the list and temp3Low must be the freelist Index (0 — 45) to put the oop on. LI Is the return linkage 
register, smashes temp2H1gh/Low, 0} 


temp2H1gh <- uRumRecordHIgh, cl; 
temp2Low «- uRumRecordLow, C2; 
temp2Low «- temp2Low ♦ freeLlstsOffset, c3; 

MAR «■ [temp2H1gh, temp2Low + temp3Low], cl; 
templLow «- templLow + chunkLInkOffset, CANCELBR[$, 2], c2; 
0 MD {current free list head}, c3; 

MAR *- [templHigh, templLow + 0], cl; 
MDR <- 0, c2; 
Noop, c3; 

MAR [temp2High, temp2Low + temp3Low], cl; 
MDR «- otLow, CANCELBR[$, 2], LOOPHOLE[wok], LIDIsp, c2; 


templLow +• templLow - chunkLInkOf fset, RET[addToFreeChunkL1st-'return], c3; 


Memo ryManglement.me 


2-Aug-84 9:24:20 PDT 


6 



Memo ryManglament.me 


2-Aug-84 9:24:20 PDT 


7 


ref 1: ‘ 

{upon entry, otLow must Indicate the oop to be refl'd. Smalllntegers acceptable. There must be a pending XDIsp to test 
for Smalllntegers, and LI is the return linkage register, smashes Q and templLow} 


[] <- 6 - otLow, CarryBr, BRANCH[$, IsSmallRefl, Oe], Cl; 

LIDIsp, BRANCH[doRef1, $], C 2; 

RET[ref1 Return], c3; 

doRef1: 

CANCELBR[$, Of], c3; 

MAR ♦* [otHigh, otLow + 1], cl; 

templLow +- 4 {for adding "one" to ref count}, CANCELBR[$, 2], c2; 

Q <- MD, XHDisp {first part of test for stuck ref count}, c3; 

templLow «- templLow LRot8, BRANCH[notStuckRef1, maybeStuckRef1, 2], cl; 

notStuckRefl: {sign is positive, thus not stuck and can not become stuck} 

Q «- Q + templLow {up ref count}, c2; 

G0T0[updnte0tRef1], c3; 


maybeStuckRef1: (sign is negative, can get stuck, may already be stuck} 

Q *• 0 + templLow {up ref count}, CarryBr {carry Implies already stuck}, c2; 

[] «- Q + templLow, CarryBr {carry Implies just got stuck}, BRANCH[updateOtRef 1, stuckRefl], c3; 
updateOtRef1: 

MAR «- [otHigh, otLow + 1], BRANCH[$, justGotStuckRef 1 ] , cl; 

MDR 0, LOOPHOLE [mdrok], L00PH0LE[wok], CANCELBR[returnFromRef1, 3], LIDIsp, c2; 


justGotStuckRef1: 

{Loom: need to call Loom here for newly stuck refl} 

MDR <- 0 {write updated ref count}, L00PH0LE[mdrok], LOOPHOLE[wok], CANCELBR[returnFromRefi, 3], LIDIsp, c2; 


stuckRefl: 

CANCELBR[$, 3], cl; 

LIDisp, G0T0[returnFromRef1], c2; 


isSmallRefl: 

LIDisp, CANCELBR[returnFromRefi, 3], 


c2; 


returnF romRef 1: 

RET[ ref iReturn], 


c3; 


refd: 

{upon entry, otLow must be the oop to be refd'd. Smalllntegers acceptable. There must be a pending XDisp to test for 
Smal1 Integers, and LI Is the return linkage register, smashes Q and temp3H1gh/Low and templHigh/Low and L2} 


[] «- 6 - otLow, CarryBr, BRANCH[$, IsSmallRefd, Oe], cl; 

LIDisp, BRANCH[doRefd, $], c2; 

RET[ ref dReturn] , c3; 

doRefd: 

CANCELBR[$, Of], c3; 

MAR [otHigh, otLow + 1], cl; 

templLow *- Ofc {for "subtracting one*' from the reference count}, CANCELBR[$, 2], c2; 

0 4- MD, XHDisp {first part of stuck ref count test}, c3; 

templLow «- templLow LRot8, BRANCH[pos1tiveRefCount, negativeRefCount, 2],cl; 

positIveRefCount: {not stuck but could go to zero} 

0^0+ templLow {subtract 1}, CarryBr {carry Implies already zero, an error}, L2 doingRefd, c2; 

[] *■ Q + templLow {subtract again}, CarryBr {no carry implies just went tozero}, BRANCH[triedToRefdZeroCountObject, 
updateOtRefd], c3; 


negatIveRefCount: {could be stuck but cannot go to zero} 

temp3Low 4-4, c2; 

temp3Low temp3Low LRot8, c3; 

[] «- 0 + temp3Low, CarryBr {carry implies stuck ref count}, Cl; 

Q «- Q + templLow {subtract one from ref count}, BRANCH[notStuckRefd, stuckRefd], c2; 

notStuckRefd: 

Xbus 4- i f XDisp {makes the branch at updateOtRefd happy!}, c3; 


updateOtRefd: 

MAR «- [otHigh, otLow + l]{write updated refcount}, BRANCH[addToZeroCountTable, notZeroRefd], cl; 
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G0T0[IsSmall Refd], 


cl, at[do1ngRefd, 10, addToZeroCountTableReturn]; 


notZeroRefd: 

MDR «- Q, LOOPHOLE[wok], LIDIsp, CANCELBR[returnFromRefd, 3], C2; 

stuckRefd: 

Noop, c3; 

G0T0[1sSmallRefd], cl; 

IsSmallRefd: 

LIDIsp, CANCELBR[returnFromRefd, 3], c2; 


returnF romRefd: 

RET[refdfteturn], 


c3; 


{the following mess Is the result of addressing constraints and branching limitations} 
trledToRefdZeroCountObject: 

BRANCH[t rledToRefdZeroCountObjectA, tMedToRefdZeroCountObjectBj, cl; 

triedToRefdZeroCountObjectA: 

G0T0[bailout3], c2; 

triedToRefdZeroCountObjectB: 

GOTO[bailout3], c2; 


addToZeroCountTabile: 

{Loom: Loom may want to get Involved here--but I don’t think so} 

{upon entry, otLow is the oop to put into the zet, and 0 is the second word of the OT entry for otlow. L2 Is the return 
linkage register, smashes templHigh/Low and temp3H1gh/Low and Q. we turn on the inZCT bit In the OT & write the new OT 
entry, see if oop Is already in the zct(by looking at former OT entry). If not we need to put the oop Into the ZCT} 


tempi Low <- 2, CANCELBR[$, 2], C 2 ; 

templLow templLow LRot8, {the Inzct bit} c3; 

MAR 4- [otHigh, otLow + 1], cl; 

MDR <- Q or templLow {turn on zet bit}, L00PH0LE[wok], CANCELBR[$, 2], c2; 

temp3Low *- MD {former OT entry so we can test previous InZct bit}, c3; 

[] *- temp3Low and templLow, ZeroBr, cl; 


0 «- uRumRecordHigh {retrelve the Rum Record address}, L2D1sp, BRANCH[returnFromAddToZeroCountTable, needToPutlnZct], c2; 


needToPutlnZct: 

{this could be sped up a bunch by keeping the address of the zet table In u registers...} 


templHigh <- 0 LRotO, CANCELBR[$, Of], c3; 

templLow «- uRumRecordLow, cl; 
Noop, c2; 
Noop, c3; 

MAR [templHigh, templLow + zctIndexOffset]{read current index}, cl; 
CANCELBR[$, 2], c2; 
Q «- MD', L00PH0LE[mdok], c3; 

MAR <- [templHigh, templLow + zctLowOffset]{get zet address}, cl; 
CANCELBR[$, 2], C 2; 
temp3Low *■ MD, c3; 

MAR 4- [templHigh, templLow + zctHlghOffset], cl; 
temp3Low <- temp3Low + Q, CANCELBR[$, 2], c2; 
tempSHigh «- MD, c3 ; 


{note: the Molasses zeroCountTable Is one-relative, not zero-relative. So, while Molasses bumps the index before putting 
something in the zet, we put it in, then bump.} 


MAR 4- [teinp3H1gh, tempSLow + 0], cl; 
MDR <- otLow, C2; 
Noop, c3; 

MAR <- [templHigh, templLow + zctlndexOffset]{write updated index}, cl; 
MDR 4* 0 «- 0 + 1, CANCELBRf $.2], L0.0PH0LE[wok], c2; 
Noop, c3; 

MAR +■ [templHigh, templLow + stabilIzationLimitOffset], cl; 
CANCELBR[$ , 2], C 2; 
temp3Low 4- MD, c3; 

Noop, cl; 
[] 4 - temp3Low - 0, NegBr, c2; 
BRANCH[zctIndexOk, stabilizationNeeded], c3; 

stabilIzatlonNeeded: 

MAR 4- [templHigh, templLow + stabilIzatlonFlagOffset], cl; 
MDR «- 1, CANCELBR[$, 2], L00PH0LE[wok], c2; 
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uTImeToStabl 1 Ize «* -stackLow xor stackLow, 

zctlndexOk: 

No op, 

L2D1sp, 

returnFromAddToZeroCountTable: 

RET[addToZeroCountTableReturn], 


c3; 

cl; 

C2; 

c3; 
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makeVolatlle: 

{upon entry, otlow Is the oop to moke volatile, uMakeVolatllellnkage Is the return linkage register: If It Is odd, each 
object referred to by the object will be refd'd; It It Is even, the object Is marked volatile, but no refdlng occurs, 
smashes tempSLow, 0, LI, L2. leaves base of object In uMakeVolatlleHigh/Low, and In templHIgh/Low. leaves uLastPointer 

S8t Up> 


{see If we're trying to make nil volatile -- this happens when the leaf context oop Is nil. 
moved to the place where volatilization is done after stabilization...} 


check should probably be 


[] «- otLow xor nilPoInter, ZeroBr, 
BRANCH[$, nilMakeVolatlle], 


uMakeVolatileOop «■ otLow, 

LI <- makingVolatile, 

CALL[otMap] {get address of base of object}, 


0 *■ templHigh {save object base} 
uMakeVolatlleHIgh Q, 
uMakeVolatileLow <- templLow, 

templLow ♦* templLow + deltaWordOffset, 
Noop, 

Noop, 


cl, at[mak1ngVolatlie, 10, otMap-return}; 

c2; 

c3; 

cl; 
c2; 
c3; 


MAR «- [templHigh, templLow + 0], 

Noop, 

0 +■ MD {delta word}, 

[] *• 0 and 4, ZeroBr {volatile bit}, cl; 

Ybus <- uMakeVolat 1leLinkage, XDIsp, BRANCH[alreadyVolatlle, doMakeVolatile], c2; 

alreadyVolatile: 

templLow * templLow - deltaWordOffset, RET[makeVolatile-return], c3; 


cl; 

c2; 

C3; 


doMakeVolatlle: 

Q f Q or 4 {volatile bit}, CANCELBR[$, Of], C 3 ; 

MAR «- [templHigh, templLow + 0], c j. 

MDR «- Q {delta word with volatile bit set}, c2; 

Ybus <" uMakeVol ati leLinkage, XDisp, {should we refd the referents or not?}’, c3; 


templLow templLow - deltaWordOffset, BRANCH[returnFromMakeVolatile, doRefdFields, Oe], cl; 


doRefdFields: 

templLow «• templLow + sIzeFieldOffset, 

Noop, 

MAR +■ [templHigh, templLow + 0], 
templLow <- templLow - sIzeFieldOffset, 
temp3Low *- MD {size field}, 

temp3Low «- temp3Low + templLow, c j. 

temp3Low <- temp3Low - 1 {low 16 bits of last pointer of context object},c2; 
uLastPointer <- temp3Low, C 3 - 


c2; 
c3; 

cl; 


{now, sweep the object decrementing reference counts of all pointer fields} 


temp2Low «- templLow + fIrstPointerFleldOfObject, 

0 «■ templHigh, 
temp2High *• 0 LRotO, 

makeVolat1leLoop; 

MAR 4- [temp2H1gh, temp2Low + 03, LI +• InMakeVolatlle, 
Noop, 

otLow MD, XDisp, CALL[refd], 

temp3Low <- uLastPointer, 

[] temp2Low - temp3Low, ZeroBr, 

temp2Low <- temp2Low + 1, BRANCH[makeVolatileLoop, $], 


ot Low 
Noop, 
Noop, 


uMakeVolatileOop, 


MAR 4 - [otHIgh, otLow'+ 1 ], 

CANCELBR[$, 2], 

Q 4 - MD {second word of ot entry of object we are volatilizing}, 1.2 

CALL[addToZeroCountTable], 

templHigh *• uMakeVolatlleHIgh, 
addToZeroCountTableReturn]; 


cl; 
c2; 
c3; 


cl; 

cZ; 

c3; 

cl, at[inMakeVolatile, 10, refdReturn}; 

c3; 

Cl; 
c2; 
c3; 

Cl; 

C2; 

inMakeVolatlie, c3; 
cl; 


cl, at[InMakeVolatlle, 10, 


templLow *- uMakeVolatileLow, 

Noop, 

c 2 ; 
c3; 

Noop, 

cl; 

returnFromMakeVolatlle: 

Ybus 4 - uMakeVolatileLInkage, XDisp, 

c 2 ; 

returnlngFromMakeVolatlle: 

RET[makeVolatile-return], 

c3; 
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nllMakeVolat lie: 

GOTO[returnFromMakeVolatile], 
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lastPoInterOf: 

{upon entry, templHIgh/Low must point at the base of the object of Interest, Q must be the delta word of the object L2 
Is the return linkage register, returns the low 16 bits of the ADDRESS of the last pointer In uLastPoInter and In 
temp3Low. smashes Q} 


□ *■ 0 and 1 {pointer bit}, ZeroBr, el ; 

0 * classCompIledMethodOop, BRANCH[doesHavePo1nters, doesNotHavePoInters],' c2; 

doesHavePoInters: 

{Is pure pointer object -- last pointer Is size of object} 

templLow <- templLow + sIzeFleldOffset, c3; 

MAR r [templHIgh, templLow + 0]{start read of length field}, cl; 

templLow <- templLow - sIzeFleldOffset {again point at base of object}, c2; 
temp3Low «- MD, G0T0[returnFromLastPoInterOf}, c3; 

doesNotHavePoInters: 

{no pointers, might be comptledMethod -- need to check class} 

templLow <- templLow + classFleldOffset, C3; 

MAR «- [templHIgh, templLow + 0], cl; 

templLow <- templLow - classF1eldOffset{aga1n point at base of object}, c2; 
temp3Low «- MD {the class of the object}, c3; 

[] «- temp3Low xor Q {compIledMethodClass oop}, ZeroBr, cl; 

BRANCH[notComp11edMethod, IsCompIledMethod], c2; 

notComp 11edMethod: 

temp3Low <- objectHeaderSIze, G0T0[returnFromLastPoInterOf], c3; 

IsCompIledMethod: 

{need to get number of literals from the method header} 

templLow «- templLow ♦ ObjectHeaderSIze {point at method header}, C3; 

MAR *- [templHIgh, templLow ♦ 0], cl; 

templLow <- templLow - objectHeaderSIze, {again point at base of object} c2; 
temp3Low e MD {the method header}, c3; 

temp3Low <- (RShlftl temp3Low and 7f){get literal count of compIledMethod}, SE *■ 0, cl; 
temp3Low < temp3Low + 1IteralStart, c2; 

temp3Low «- temp3Low + objectHeaderSIze, c3; 

returnFromLastPoInterOf: 

temp3Low <- temp3Low - 1, cl; 

temp3Low <• temp3Low + templLow, L2D1sp, c2; 

uLastPoInter *- temp3Low, RET[lastPo1nter0f-return], C3; 
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Test the memory and oop levels and reset alreadyAlerted if both are above their alert levels. 
((wordLevel >= wordAlertLevel) and: [oopLevel >* oopAlertLevel]) ifTrue: [alreadyAlerted «- 0] 


stabilize: 

{linkage register Is LO — runs only between bytecodes 1 } 


templHlgh *- uRumRecordHigh, cl; 
templLow *- uRumRecordLow, ■ c2; 
uTimeToStabillze 4 - 0, c3; 

testOopLevel: 

MAR <- [templHigh, templLow ♦ oopLevelLowOffset], cl; 
CANCELBR [S. 2], C 2; 
temp3Low MD, c3; 

MAR +• [templHlgh, templLow + oopAlertLevelLowOffset], cl; 
CAMCELBR [$, 2], C 2; 
0 *• MD, c3; 

0 <* tempcILow - 0, CarryBr, cl; 
BRANCH [stabil1ze2, $], C 2; 
Noop, c3; 

testWordLevelHigh: 

MAR ♦* [templHigh, templLow + wordLevelHIghOffset], cl; 
CANCELBR [$, 2], C 2; 
temp3Low *■ MD, C 3; 

MAR *■ [templHigh, templLow + wordAlertLevelHIghOffset], cl; 
CANCELBR [$, 2], C 2 • 
Q «- MD, c3; 

0 *■ temp3Low - 0, CarryBr, cl; 
[] «- 0, ZeroBr, BRANCH [stabilizel, $], c2; 
BRANCH [resetAlreadyAlerted, testWordLevelLow], c3; 

testWordLevelLow: 

MAR [templHigh, templLow + wordLevelLowOffset], Cl; 
CANCELBR [$, 2], c 2; 
temp3Low * MD, c3; 


MAR 4* [templHigh, templLow + wordAlertLevelLowOffset], cl; 

CANCELBR [$, 2], C 2; 

0 ^ MD, c3; 

0 «- temp3Low - Q, CarryBr, cl; 

BRANCH [stab111ze3, $], c2; 

Noop, c3; 

resetAlreadyAlerted: 

MAR ** [templHigh, templLow + alreadyAlertedOffset], cl; 

MDR <- 0, CANCELBR [$, 2], LOOPHOLE [wok], C 2; 

GOTO [reallyStablllze], c3; 

stabilizel: 

CANCELBR [reallyStabi1ize, 1], c3; 

stabilize2: 

GOTO [reallyStabilize], c3; 

stab111ze3: 

GOTO [reallyStabilize], c3; 

reallyStabilize: 

{get address of the zct> 

MAR «- [templHigh, templLow + zctLowOffset], cl; 

CANCELBR[$, 2], C 2; 

temp2Low *• MD, C 3; 

MAR 4 - [templHigh, templLow + zctHighOffset], cl; 

uZctBaseLow 4- temp2Low, CANCELBR[$, 2], c2; 

temp2H1gh ♦* MD, c3; 

{get, then smash the zet Index from the Rum record} 

MAR ♦- [templHigh, templLow + zetIndexOffset], cl; 

MDR 4 - 0 , CANCELBR[$, 2], L00PH0LE[wok], c2; 

temp3Low <- MD, c 3; 

(reset the stabilization flag} 

MAR 4- [templHigh, templLow + stabilIzatlonFlagOffset], cl; 

MDR <- 0, CANCELBR[$, 2], LOOPHOLE[wok], c2; 


temp3Low 4 - temp3Low + temp2Low {yields low 16 bits of one word past the last valid oop in the zet}, c3; 


uZctLimit 4 - temp3Low, cl; 
uQueueHead 4- -otLow xor otLow, C 2; 
uCurrentObject *■ -otLow xor otLow, c3; 


{sweep the zet. for each oop marked (in its ot entry) as volatile, reset the isVolatile bit, and increase the reference 
counts of all of its referents, recall that the zet index is one greater than the number of valid entries in the zet} 

stabilIzationLoop: 
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[] «- temp2Low xor uZctLImlt, ZeroBr {are we there yet?}, 
tempSLow <- Off, BRANCH[$, countsAreNowCorrect], ; 

temp3Low +• temp3Low LRot8, 

MAR «* [temp2High, temp2Low + 0], 

temp2Low «- temp2Low +1, LI «- stabilizing, 

otLow «■ MD, CALL[otMap2] {so we can get its delta word), 


templLow *- templLow + deltaWordOffset, 
temp3Low «• temp3Low or Ofb {yields fffb, for turning off the IsVolatlle bit}, c2; 
Noop, c3; 


cl; 

C2; 

c3; 

cl; 

c2; 

c3; 

cl, at[stab111z1ng, 10, otMap2-return]; 


MAR <- [templHIgh, templLow + 0] {read delta word} 
Noop, 

0 «* MD, XDIsp {to test IsVolatlle bit}. 


cl; 

C2; 

c3; 


MAR <- [templHigh, templLow + 0], BRANCH[oopIsNotVolat lie, $, Ob}, cl; 

Q *■ MDR «- 0 and temp3Low {not volatile anymore!}, L2 <* stabil 1z IngContext, c2; 
templLow <- templLow - deltaWordOffset, CALL[lastPo1nterOf], c3; 

{need to move the'tempi regs into temp3 to keep refl from smashing them...} 

0 templHIgh, cl, at[stab111zlngContext, 10, 

lastPointerOf-return]; 

temp3H1gh «- 0 LRotO, C2; 

temp3Low <- templLow + classFleldOffset, c3; 


{sweep over the volatile object, upping the reference counts of Its referents} 


upReferents: 

MAR «■ [temp3Hlgh, temp3Low +0], LI <- correcting. 
Noop, 

otLow MD, XDIsp, CALL[ref1], 

{] <- temp3Low xor uLastPoInter, ZeroBr, 

temp3Low «- temp3Low + 1, BRANCH[$, thisOnelsStable], 

GOTO[upReferents], 

oopIsNotVolatlle: 

Moop, 

thisOnelsStable: 

G0T0[stabilizatIonLoop], 


cl; 

c2; 

c3; 

cl, at[correcting, 10, refIReturn]; 

c2; 

c3; 


c2; 
c3; 


countsAreNowCorrect: 

{at this point, all contexts have been stabilized, and all reference counts are correct, sweep over the zet again: any 
object in the zet whose reference count is zero Is garbage!} 

{temp2High is still valid despite the CALLs. restore temp2Low} 


temp2Low «* uZctBaseLow, c3; 

sweepAndDeallocateLoop: 

[] «- temp2Low xor uZctLImlt, ZeroBr {are we there yet?}, cl; 

BRANCH[$, returnFromStabilIze], c2; 

templLow *■ Ofd, c3; 

MAR «- [temp2High, temp2Low + 0] {get oop from zet} cl; 

templLow «- templLow LRot8, c2; 

otLow *- MD, c3; 

MAR *- [otHIgh, otLow + 1] {get Its ot entry} cl; 

templLow <- templLow or Off {yields fdff for turning off inZct bit}, CANCELBR[$, 2], c2; 

temp3Lpw +- MD, c3; . 


MAR <* [otHIgh, otLow + 1] {rewrite Its ot entry} 

MDR temp3Low and templLow {turns off the InZct bit}, 
temp3Low *■ temp3Low LRot8, 

templLow *■ Ofc {mask Is reference count bits}, 

[] temp3Low and templLow, ZeroBr, 

temp2Low «- temp2Low + 1, BRANCH[sweepAndDeallocateLoop, 

needToDeallocate: 

{save our current state} 

0 «- temp2H1gh, 

uZctSweepHigh <- Q, L3 fromStabl 11 ze 
uZctSweepLow ♦- temp2Low, CALL[deallocate], 

{recover our state} 
temp2H1gh *■ uZctSweepHigh, 
temp2Low +- uZctSweepLow, 

GOTO[sweepAndDeallocateLoop], 


Cl; 

CANCELBR[$, 2], L00PH0LE[wok], c2; 
c3; 

cl; 

c2; 

needToDeallocate], c3; 


cl 

c2 

c3 


cl, at[fromStabilize, 10, deallocate-return]; 

c2; 

c3; 


returnF romStabil1ze: 
Noop, 


c3; 


Noop, Cl; 
LODIsp, c2; 
RET[stabi1Ize-return], c3; 
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deallocate: 

{otLow Is the oop to deallocate -- it has already been determined that 
Its reference count Is 0. L3 is the return linkage register} 

L2 «- startingDeallocate, cl; 

Noop* C2; 

[] «■ otLow LRotO, XDisp, CALL[geteiass], c3; 


templLow <- templLow + deltaWordOffset, 
0 «• classCompIledMethodOop, 

[] <- temp3Low xor 0. ZeroBr, 


cl, at[startingDeallocate, 10, getClass-return]; 
c2; 
c3; 


{get delta word to see if object has pointers} 

MAR <- [templHigh, templLow + 0], BRANCH[$, deallocat1ngACompnedMethod],cl; 
Noop, c2; 
0 <- MD, XLDisp, c3; 


BRANCH[d©allocateW1thNoPointers, deallocateWithPointers, 2], 
deallocateWithNoPoInters: 

templLow «• templLow - deltaWordOffset, LI «- freeNonPointerObject, 
uClass ♦* temp3Low, CALL[adjustLevelsAndReturnToPool], 

temp3Low *- uClass, GOTOfnowDoObjectsClass], 
addToFreeChunkList- return]; 

deallocatingACompIledMethod: 

G0T0[deallocateW1thPointersA], 

deallocateWithPoInters: 

Noop, 


cl; 

c2; 
c3; 

cl, at[freeNonPointerObject, 10, 

C2; 

C2; 


deallocateWithPoIntersA: 

templLow «■ templLow + offsetFromDeltaWordToClassFleld, c3; 

{enqueue this object for deallocation} 

MAR <- [templHigh, templLow + 0], cl; 

MDR <- uQueueHead, c2; 

uQueueHead «- otLow, c3 ; 

Noop, cl; 

nowDoObjectsClass: 

Noop, c2; 

otLow *- temp3Low LRotO, XDisp, GOTO[specialRefd], c3; 


mo re: 

{if there is a current object, continue with it. if not, If there is a queued object, start It. otherwise we are done} 

otLow «- uCurrentObject, XDisp, cl, at[nowDoneW1th0bject, 10, 

addToFreeChunkList-return]; 

BRANCH[continueW1thCurrent0bject, checkQueueHead, Oe], c2 ; 


checkQueueHead: 

otLow 4* uQueueHead, XDisp, 


c3; 


BRANCH[startWithQueueHead, noMore, Oe], cl; 

noMore: 

{all recursive freeing is now complete} 

L3D1sp, c2; 

RET[deallocate-return], c3; 


startVtfithQueueHead: 

uCurrentObject «* otLow, LI sweepIngObject, 
CALL[otMap2], 

templLow *■ templLow + deltaWordOf fset, 

Q *■ templHigh, 
uSoFarHigh Q, 


c2; 
c3; 

cl, at[sweepingObject, 10, otMap2-return]; 

c2 ; 

c3; 


MAR [templHigh, templLow + 0], cl; 
templLow *■ templLow - del taWordOf fset, L2 «- getObjectEndForFreeing, c2; 
Q MD, XDisp, c3; 

BRANCH[doingACompiledMethod, notDoingACompiledMethod, Oe], cl; 


{both 1sCompIledMethod and doesHavePointers live in the lastPointerOf routine} 
doIngACompiledMethod: 

CALL[1sCompiledMethod], c2; 
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notDoIngACompIladMethod: 

CALL[doesHavePoInters], 


uCurrentObjectBaseLow «- templLow, 

lastPoInterOf-return]; 

templLow «- templLow + classFleldOffsot, 

Noop, 


cl, at[get0bjectEndForFree1ng, 10, 

c2f; 

C3; 


MAR «- [templHIgh, templLow + 0], 

Noop, 

tempZLow * MD {link to next object on queue], 

uQueueHead * temp2Low, 

Noop, 

G0T0[areWeThereYet], 


doAnotherFleld: 

MAR «- [templHIgh, templLow + 0], 

Noop, 

otLow «- MD, XDIsp, G0T0[ special Ref d], 


contlnueWIthCurrentObject: 
templLow «- uSoFar, 

templHIgh <- uSoFarHIgh, 
temp3Low *- uLastPoInter, 

Noop, 

areWeThereYet: 

[] *• templLow xor temp3Low, ZeroBr, 

templLow *• templLow + 1, BRANCH[$, doneW1th6bject], 

uSoFar <- templLow, G0T0[doAnotherF1eld], 


c3; 

cl; 

c2; 

c3; 


cl; 
c2; 
c3; 


doneWIthObject; 


otLow «- uCurrentObject, cl . 
templLow <- uCurrentObjectBaseLow, LI <- nowDoneWIthObject, c2- 
uCurrentObject *• -otLow xor otLow, CALL[adjustLevelsAndReturnToPool], e3; 


speclalRefd: 

{upon entry, otLow must be the oop to be speclalRefd’d and 
smashes 0 and temp3H1gh/Low and templHIgh/Low and L2] 


there must be a pending XDIsp 


to test for 


smallIntegerness. 


[] *■ 6 - otLow, CarryBr, BRANCH[$, speclalSmall, 0e], cl- 

BRANCH[doSpec1al, $], 

G0T0[more], “g! 

doSpeclal: 

CANCELBR[$, Of], c3 . 


MAR «- [otHIgh, otLow + 1], 

templLow «- Ofc {for "subtracting one" from the reference count] 
0 <- MD, XIIDIsp {first part of stuck ref count test], 


cl; 

, CANCELBR[$, 2 ], c2; 
c3; 


templLow <- templLow LRot8, BRANCH[specialPos1t1weRefCount, speclalNegatlveRefCount, 2 ], cl; 

speclalPosItlveRefCount: {not stuck but could go to zero] 

0 - Q + templLow {subtract 1), CarryBr {carry Implies already zero, an error] c2- 
[] <- 0 + templLow {subtract again), CarryBr {no carry Implies just went tozero], 
BRANCH[triedToSpe1calRefdZeroCount0bject, specialUpdateOtRefd], c3; 

specialNegativeRefCount: {could be stuck but cannot go to zero] 

temp3Low *4, c2 , 

temp3Low * tempSLow LRot8, c3 ! 

[] *- Q + temp3Low, CarryBr {carry Implies stuck ref count], cl; 

0 <- Q + templLow {subtract one from ref count], BRANCH[spec1alNotStuckRefd’, speclalStuckRefd], c2; 
specialNotStuckRefd: 

Xbus «- 1, XDIsp {makes the branch at speclalUpdateOtRefd happyl], c3; 


speclalUpdateOtRefd: 

*■ CotHlgh, otLow + l]{wr1te updated refcount], BRANCH[spec1alNeedsDeallocat1on, $1, 
MDR <- Q, L00PH0L£[wok], CANCELBR[$, 2], C 2; * J 


cl; 
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GOTO[more], 

specialStuckRefdr 

G0T0[mor«], 

specialNeedsDeallocation: 

MDR <- 0, LOOPHOLE[wok], CANCELBR[$, 2], 
templLow * 2, 

{this objects ref count went to zero, deallocate It, 
will take care of It In a little while} 
templLow <- templLow LRot8, 

[] <- Q and templLow, ZeroBr, 

BRANCH[$, deallocate], 

Noop, 

Noop, 

G0T0[more], 

speclalSmall: 

CANCELBR[$, 1], • 

GOTO[more], 


trledToSpeleal RefdZeroCountObject: 

BRANCH[triedToSpecialRefdZeroCountObjectA, 
trledToSpeclalRefdZeroCountObjectB], 
trledToSpecialRefdZeroCountObjectA: 

GOTO[ba11out3], 

triedloSpeclalRefdZeroCountObjectB: 

G0T0[ba11out3], 


c3; 


c3; 


c2; 
c3; 

but only If It's inZct bit Is off -- If It’s on, the zet processing 

Cl; 
c2; 

C3; 

cl; 
c2; 
c3; 


c2; 
c3; 


Cl; 
c2; 
c2; 


adjustLevelsAndReturnToPool : 

templLow templLow + sizeFleldOffset, cl; 

temp2H1gh *■ uRumRecordHIgh, c2; 

temp2Low <- uRumRecordLow, c3; 

IncreinentOopLevel: 

MAR •*- [temp2H1gh, temp2Low + oopLevelLowOffset], cl; 

CANCELBR [$, 2], C 2; 

temp3Low *- MD, c3; 

MAR <- [temp2H1gh, temp2Low + oopLevelLowOffset], cl; 

MDR <- temp3Low * temp3Low + 1, 

CANCELBR [$, 2], LOOPHOLE [wok], CarryBr, c2; 

BRANCH [IncreaseWordLevelLow, ImpossIbleOopLevel], c3; 

ImpossIbleOopLevel: 

GOTO [ba11out2], cl; 

IncreaseWordLevelLow: 

MAR +• [templHIgh, templLow + 0], cl; 

templLow +• templLow - s IzeFlel dOffset, c2; 

temp3Low <- MD, c3; 

MAR *- [temp2H1gh, temp2Low + wordLevelLowOffset], cl; 

CANCELBR [$, 2], C 2; 

Q *• MD, C3; 

MAR [temp2H1gh, temp2Low + wordLevelLowOffset], cl; 

MDR - Q + temp3Low, CANCELBR [$, 2], LOOPHOLE [wok], CarryBr, c2; 

BRANCH [returnToPool, wordLevelCarry], c3; 

wordLevelCarry: 

MAR «- [teinp2High, temp2Low + wordLevelHIghOffset], cl; 

CANCELBR [$, 2], C 2; 

temp3Low «- MD, c3; 

MAR <- [temp2H1gh, temp2Low + wordLevelHIghOffset], cl; 

MDR temp3Low temp3Low + 1, CANCELBR [$ B 2], LOOPHOLE [wok], c2; 

GOTO [returnToPool], c3; 

returnToPool: 

{build a mask to set all ref count bits on and to set purpose bits to free (11)} 
temp3Low <- Ofc, cl; 

temp3Low <- temp3Low LRot8, c2; 

temp3Low <■ temp3Low or 60, c3; 

MAR *- [otHIgh, otLow +1], • cl; 

CANCELBR[$, 2], C 2; 

0 *- MD, c3; 

MAR ♦- [otHIgh, otLow + 1], cl; 

MDR o or temp3Low, CANCELBR[$, 2], L00PH0LE[wok], c2; 

GOTO[addToProperFreeChunkList], c3; 
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addToProperFreeChunkLIst: 

{upon entry, otLow Is the oop of the object to add to the free list, templHIgh/Low must be that object's base, calls 
addToFreeChunkLIst thus smashing temp2H1gh/Low and Q. smashes temp3Low> 


templLow +- templLow + sIzeFleldOffset, cl; 

Q «- largestFreeChunkSIze, c2; 

Noop, . c3; 

MAR <- [templHIgh, templLow + 0], cl; 

templLow templLow - sIzeFleldOffset, c2; 

temp3Low «- MD {object's size}, c3; 

{} <- temp3Low - 0, CarryBr, cl; 

BRANCH[selectRegularL1st, selectBIgFreeList], c2; 

selectRegularLIst: 

GOTO[addToFreeChunkLIst], c3; 

selectBIgFreeLlst: 

temp3Low <- Q, G0T0[addToFreeChunkL1st], c3; 
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} 



Inputs - otLow Is the oop whose mapping Is desired -- better not supply a Smalllntener 
LI is the return linkage register w 

output - high portion of address is returned In templHigh, low portion in templLow 

} 


{todo put in a check and trap for trying to otMap lambda!! 
otMap: 

IfEqual[otMapDebug, debug,,Sk1pTo[end0tMapDebug]]; 


{some debugging code to ensure that the oop Is even! 
Ybus «- otLow, YDIsp, 

BRANCH[goodOop-otMap, badOop-otMap, Oe], 


badOop-otMap: 

GOTO[ba11outl], 

goodOop-otMap: 

Noop, 


endOtMapDebug! 


cl; 
c2; 


c3; 


c3; 


{the real code for otMap starts here} 

{we can get by with the + 1 because a page cross Is Impossible -- 
the OT entry must be at an even address, and only Incrementing an 
odd address can cause a page fault} 

MAR *• {otHIgh, otLow + 1], 

CANCELBR[$,2], 

templHigh *- MD, XLDIsp {check If this object Is a leaf}, 

MAR *- [otHIgh, otLow + 0], BRANCH[$, IsLaaf-otMap, 1], 

LIDIsp {this Is not a leaf}, 
templLow <- MD, RET[otMap-return]. 


{Loom: needs to punt to Mesa to handle this leaf} 

IsLeaf-otMap: 

G0T0[ba11out3], 


Inputs - otLow is the oop whose mapping Is desired --better not supply a Smalllntener -- 
LI is the return linkage register 

output - high portion of address is returned in templHigh, low portion In templLow 

} 


{todo --- put in a check and trap for trying to otMap lambda!) 
0tMap2: 


If Equal[otMapDebug, debug,,SkipTo[end0tMapDebug2]] ; 

(some debugging code to ensure that the oop is even) 
Ybus «- otLow, YDisp, 

BRANCH[goodOop-otMap2, bad0op~otMap2, Oe], 

bad0op-otMap2: 

GOTOfballoutl], 


good0op-otMap2: 
Noop, 


cl; 
C2 ; 


c3; 
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end0tMapDebug2l 

{the real code for otMap starts here} 

{we can get by with the + 1 because a page cross Is Impossible 
the. OT entry must be at an even address, and only Incrementing 
odd address can cause a page fault} 

MAR * [otHIgh, otLow +1], 

Noop, CANCELBR[$,2], 

templHIgh <- MD, XLDisp {check If this object Is a leaf}, 

MAR <- [otHIgh, otLow + 0], BRANCH[$, 1sLeaf-otMap2,1], 

LIDIsp {this Is not a leaf}, 
templLow ♦ MD, RET[otMap2-return}, 


{Loom: needs to punt to Mesa to handle this leaf} 

1sLeaf-otMap2: 

G0T0[ba11out3], 
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{ 
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{Pop and Store Receiver Variable bytecodes} 


popAndStoreRecelverVarlableO: 

temp3Low <- fleldO, backupIsOBytes, GOTO[popAndStoreRece1verVarlable], cl, bytecode[60]; 
popAndStoreReceiverVarlablel: 

temp3Low <- fleldl, backupIsOBytes, GOTO[popAndStoreReceiverVarlable], cl, bytecode[61]; 


popAndStoreRecelverVariable2: 

temp3Low +• field2, backupIsOBytes, GOTO[popAndStoreRece1verVar1able], 
popAndStoreReceiverVar1able3: 

temp3Low «• f1eld3, backupIsOBytes, GOTO[popAndStoreRece1verVar1able], 
popAndStoreRece1verVariable4: 

temp3Low «- f1eld4, backupIsOBytes, GOTO[popAndStoreRece1verVarlable], 
popAndStoreReceive rVariable6: 

temp3Low «- f1eld5, backupIsOBytes, GOTO[popAndStoreReceiverVarlable], 
popAndStoreRece1verVar1able6: 

temp3Low <- field6, backupIsOBytes, GOTO[popAndStoreReceiverVartab1e], 
popAndStoreRece1verVar1able7: 

temp3Low <- f1eld7, backupIsOBytes, GOTO[popAndStoreRece1verVarlable], 


cl, bytecode[62]; 
cl, bytecode[63]; 
cl, bytecode[64]; 
cl, bytecode[66]; 
cl, bytecode[66]; 
cl, bytecode[67]; 


popAndStoreReceiverVarlable: 

uSmashTos <- ~temp2Low xor temp2Low { -1 }, GOTO[storeRece1verVarlable],c2; 
storeReceiverVarlable: 


{upon entry temp3Low must Indicate the receiver field to store into. Including the size of the object header and 
uSmashTos must be 0 for no pop, -1 for popandsmash. Since the receiver has no lambdas, no checks are made for them} 

Noop, c3; 


Noop, cl; 

temp2Low «- uReceiverLow, LI <- popAndStoreRecVariable, c2; 

temp2High «- uReceiverHigh, temp2Low <- temp 2 Low + deltaWordOf f set, CALL[getDeltaWord], c3; 

[] *- templLow, YDisp, cl, at[popAndStoreRecVar1able, 10, 

getDeltaWord-return]; 

temp2Low *- uReceiverLow, BRANCHfrecelverNotVolatile, recelverVolatlie, Ob], c2; 
recelverVolatlle: 

{volatile implies no reference counting needed} 

temp2Low <- temp2Low + temp3Low {get to the receiver field}, GOTG[getTosStoreRecVariable], c3; 
recelverNotVolatlle: 

{non-volatile -- need to refd old contents, refi new contents, because of possible Loom calls on the refi/refd calls, we 
do not know that the bytecode will complete until after the calls are complete, and cannot change the stack or receiver 
till then} 


temp2Low «- temp2Low + temp3Low {get to the receiver field}, c3; 

MAR <- [temp2H1gh, temp2Low + 0] {read value from field}, cl; 
Noop, C 2 . 
otLow <- MD, XDisp, CALL[refd] {and refd it}, c3; 


MAR [stackHIgh, stackLow + 0], cl 5 
Noop, c2 ! 
otLow <- MD, XDisp, CALL[refi] {which returns to getTosStoreRecVarlable:}, 


at[popAndStoreRecVariable, 
c3; 


10 , 


refdReturn]; 


getTosStoreRecVarlable: 

Noop, 

Noop, 

[] «- uSmashTos, ZeroBr, CALL[returnTopOfStack] 


cl, at[popAndStoreRecVar1able, 10, reflReturn]; 

c2; 

c3; 


putlntoReceiver: 

MAR «- [temp2H1gh, temp2Low + 0], cl, at[popAndStoreRecVariable,10, 

returnTopOfStack-return]; 

MDR «- otLow {store into receiver}, NextBytecode, c2; 

DISPNI[bytecodes], IpLow «- ipLow + PC16, c3; 
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{Pop and Store Temporary Location bytecodes} 


popAndStoreTemporaryLoeatlonO: 

homeLow homeLow + tempo, GOTO[popAndStoreTemporary], cl, bytecode[68]; 

popAndStoreTemporaryLocatlonl: 

homeLow «- homeLow + tempi, GOTO[popAndStoreTemporary], cl, bytecode[69]; 

popAndStoreTemporaryLocation 2 : 

homeLow «- homeLow + temp2, GOTO[popAndStoreTemporary], cl, bytecode[6a]; 

popAndStoreTemporaryLocat1on3: 

homeLow «- homeLow + temp3, GOTO[popAndStoreTemporary], cl, bytecode[6b]; 

popAndStoreTemporaryLocat1on4: 

homeLow «■ homeLow + temp4, GOTO[popAndStoreTemporary], cl, bytecode[6c]; 

popAndStoreTemporaryLocatlonS: 

homeLow «- homeLow + temp5, GOTO[popAndStoreTemporary], cl, bytecode[6d]; 

popAndStoreTemporaryLocatIon6: 

homeLow <- homeLow + temp6, GOTO[popAndStoreTemporary], cl, bytecode[6e]; 

popAndStoreTemporaryLocation 7: 

homeLow homeLow + temp7, GOTO[popAndStoreTemporary], cl, bytecode[6f]; 

popAndStoreTemporary: 

uSmashTos «■ ~temp2Low xor temp2Low { -1 }, LI *■ storeTemporary, GOTO[storeTemporary], c2; 
storeTemporary: 

{upon entry, homeHigh/Low must Indicate the field to be written. LI must contain the value "storeTemporary". and 

uSmashTos must be -1 to smash top of stack, 0 otherwise} 

[] «- uSmashTos, ZeroBr, CALL[returnTopOfStack], c3; 


MAR «■ [homeHIgh, homeLow + 0], {start write of context field} 
returnTopOfStack-return]; 

MDR «- otLow, {write the top of stack}, 

homeLow uHomeLow, {restore the home base register} 


cl, atfstoreTemporary, 10, 

c2; 
c3; 


Noop, dj 
NextBytecode, C 2 . 
DISPNI[bytecodes], ipLow <- IpLow + PC16, c3; 


{Extended Store (Receiver Variable, Temorary Location, Illegal, Literal Variable)} 


extendedStore: 

uSmashTos «- 0, GOTO[commonExtendedStore], 


cl, bytecode[81]; 


{Extended Pop and Store (Receiver Variable, Temporary Location, Illegal, Literal Variable)} 


extendedPopAndStore: 

uSmashTos <- ~temp2Low xor temp 2 Low { -1 }, GOTO[commonExtendedStore], cl, bytecode[82]; 


commonExtendedStore: 


temp2Low <- ib {get the extension byte}, C 2 ; 

temp3Low «• temp2Low and 3f, {get only the offset} c3; 

temp3Low *■ temp3Low + objectHeaderSize, {and bump to the object body} cl; 
temp2Low *• RShlftl temp2Low, {shift for convienient dispatch} c2; 


[] temp2Low LRotO, XwdDisp, {dispatch on the type of extended push} c3; 

DISP2textendedStoreTarget], ipLow «- IpLow + PC16, {account for the extension byte, and take off} cl; 
extendedStoreRecelver: 

G0T0[storeRece1verVariable], backupIslByte {In case of refl/refd needs to coll Loom}, cZ, at[0, 4 . extendedStoreTarget]; 
extendedStoreTemporary: 

temp3Low <- temp3Low + tempFrameStart, cZ, at[l, 4, extendedStoreTarget}; 

homeLow +■ homeLow + temp3Low, LI *■ storeTemporary, c3; 

Noop, dj 
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GOTO[storeTemporary], 


c 2 ; 


11legalExtendedStore: 

G0T0[11legalExtendedStore], 


c*, at[2, 4, extendedStoreTarget]; 


extendedStoreLlteralVariable: 

temp3Low 4 - temp3Low + 1ItoralStart, backupIslByte {In case refi/refd overflow or lambda In association}, c2, at[3, 4, 
extendedStoreTarget]; 

temp2Low *- uCurrentMethodLow, c3; 


temp2High *- uCurrentMethodHIgh, temp2Low <■ temp3Low + temp2Low, {and add in offset to the appropriate association} cl; 


Noop, c 2; 
Noop, C 3 ; 

MAR *■ [temp2Htgh, temp2Low + 0], {read the association oop} cl; 
LI <- storingLiteralVarlable, c2 ; 
otLow *- MD, CALL[otMap] {otMap the association}, c3; 


0 *■ templHigh, 

temp2Low <- templLow + assoclatlonValuelndex {add In offset to value}, 
temp2High *• Q LRotO, 


cl, at[stor1ngL1teralVar1able, 10, otMap-return]; 

C2; 

c3; 


MAR *• [temp2H1gh, temp2Low + 0], Cl; 

Noop, c2; 

otLow *■ MD {get the value of the association}, c3; 

[] <- otLow, ZeroBr {test for lambda}, LI «■ storlngLItVar, cl; 

BRANCH[valueIsNot Lambda-storeLlteralVariable, va1ueIsLambda-storeLlteralVariable], c 2 ; 

va1uelsLambda-storeLlteralVariable: 

{Loom: need to call Loom here} 

G0T0[ba11outl], c3; 


valueIsNotLambda-storeLlteralVariable: 

[] <- otLow LRotO, XDIsp, CALL[refd], c3; 


MAR > [stackHigh, stackLow + 0], 

Noop, 

otLow 4 - MD, XDIsp, CALL[ref1], 

Noop, 

Noop, 

[] uSmashTos, ZeroBr, CALL[returnTopOfStack], 


cl, at[stor1ngL1tVar, 10i refdReturn]; 
c 2 ; 
c3; 

cl, at[stor1ngL1tVar, 10, refiReturn]; 
c 2 ; 
c3; 


MAR [temp2High, temp2Low + 0], 
returnTopOfStack-return]; 

MDR 4 - otLow, NextBytecode, 
DISPNI[bytecodes], IpLow 4- IpLow + PC16, 


cl, at[stor1ngL1tVar, 10, 


c2; 
c3; 


{Pop Stack Top} 


popStackTop: 

MAR 4 - [stackHigh, stackLow + 0], cl, bytecode[87]; 

MDR <- nilPointer {smash top of stack}, c2; 

Noop, c3; 

stackLow «- stackLow - 1, cl; 

NextBytecode, c 2; 

DISPNI[bytecodes], IpLow *■ IpLow + PC16, c3; 
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prlmltlvelndexNotZero: 

uPrlmitiveNumber <- temp2Low {save In case of primitive failure}, CANCELBRrS, Of], cl: 
Noop, . c2; 

[] «- temp2Low LRotl2, XDisp {dispatch on high 4 bits of primitive 0}, c3; 


[] «■ temp2Low LRotO, XDisp {dispatch on low 

DISP4[bank0], 

DISP4[bankl], 

DISP4[bank2], 

DISP4[bank3], 

DISP4[bank4], 

DISP4[bank6], 

DISP4[bank63, 

DISP4[bank7], 

DISP4[bank8], 

DISP4[bank9], 

DISP4[banka], 

DISP4[bankb], 

DISP4[baukc], 

DISP4[bankd], 

DISP4[banke], 

DISP4[bankf], 

somethingIsDefinItelyWrong: 

GOTO[somethingIsDefInitelyWrong], 
GOTQ[sendArithmetIcMessageO], 
G0T0[sendAr1thmeticMessagel], 
GOTO[sendAr1thmeticMessage2], 
GOTO[sencIArithmet1cMessage3], 
GOTOfsenciArithmet 1cMessage4], 

G0T0[sendArlthmetIcMessageO], 
GQT0[sendAr1thmeticMessage6], 

G0T0[sendArlthmet1cMessage7}, 

GOTO[noSuchPrimitivelnMIcrocode], 
GOTO[noSuchPrimit1veInMicrocode3, 
GOTO[noSuchPrim1tiveInM1crocode3, 
G0T0[noSuchPrim1tIvelnMIcrocode], 
G0T0[noSuchPr1m1tiveInM1crocode3, 

GOTO[sendArlthmet1cMessagel43, 

GOTO[sendAr1thmeticMessagel53, 


GOTO[noSuchPrimitIvelnMIcrocode], 
GOTOfnoSuchPrimltIvelnMIcrocode], 
GOTOfseudArithmeticMessagell], 
GOTO[noSuchPrimltivelnMicrocode], 
GOTO[noSuchPrlmitivelnMic rocode], 
G0T0[noSuchPr1m1tIvelnMIcrocode], 
GOTOfnoSuchPrimitIvelnMIcrocode], 
GOTO[noSuchPrlmitivelnMicrocode], 
GOTO[noSuchPr1mitIvelnMIcrocode], 
GOTO[noSuchPrimitivelnMIcrocode], 
GOTO[noSuchPr1m1tivelnMic rocode], 
GOTO[noSuehP rimitlvelnMicrocode], 
G0T0[noSuchPrim1t1velnMicrocode}, 
GOTO[noSuchPrimltivelnMicrocode}, 
GOTO[noSuchPrimit1veInM1crocode}, 
G0T0[noSuchPrimitivelnMic rocode], 

GOTO[noSuchPrimit1velnMic rocode], 
G0T0[no$uchPr1m1tIvelnMIcrocode], 
GOTO[noSuchPr1m1tivelnMicrocode], 
G0T0[noSuchPrim1t1velnMicrocode], 
GOTO[noSuchPrimitl veinMicrocode], 
GOTO[noSucfiPrimiti velnMic rocode], 
GOTO[noSuchPrimit1velnMicrocode , 
G0T0[noSuchPr1mit1velnMicrocode', 
GOTO[noSuchPrimitIvelnMIcrocode], 
GOTO[noSuchPrim itIvelnMIcrocode], 
GOTO[noSuchPrimIt 1velnMicrocode*, 
G0T0[noSuchPrimit 1velnMicrocode], 
GOTO[noSuchPrimltIvelnMIcrocode], 
GOTOfnoSuchPrlmltlvelnMicrocode], 
GOTO[noSuchPrim It 1velnMicrocode], 
G0T0[noSuchPrimitlvelnMicrocode], 

G0T0[noSuchPr1m1tivelnMicrocode], 
G0T0[noSuchPrimitIvelnMIcrocode], 
G0T0[noSuchPrimitlvelnMicrocode], 
G0T0[noSuchPrim ItivelnMicrocode], 
G0T0[noSuchPrim1tivelnMicrocode], 
G0T0[noSuchPrimItIvelnMIcrocode], 
GOTO[noSuchPrlmit1veInM1crocode], 
GOTO[noSuchPrimltIvelnMIcrocode], 
GOTO[noSuchPrimitivelnMicrocode], 


4 bits}, DISP4[pr1m1tiveBank], cl; 

c2, at[0, 10, primltIveBank]; 
c2, at[1, 10, primltlveBank]; 
c2, at[2, 10, primltiveBank]; 
c2, at[3, 10, primltlveBank]; 
c2, at[4, 10, primltlveBank}; 
c2, at[5, 10, primltlveBank]; 
c2, at[6, 10, primltlveBank]; 
c2, at[7, 10, primltlveBank}; 
c2, at[8, 10, primltlveBank}; 
c2, at[9, 10, primltlveBank]; 
c 2 , at[0a, 10, primltlveBank] 
c2, at[0b, 10, primitlveBank] 
c2, at[0c, 10, primltlveBank] 
c2, at[0d, 10, primltlveBank] 
c2, at[0e, 10, primltlveBank]: 
c2, at[0f, 10, primltlveBank]: 


c*, at[0, 10, bankO]; 
c3, at[l, 10, bankO]; 
c3, at[2, 10, bankO]; 
c3, at[3, 10, bankO]; 
c3, at[4, 10, bankO]; 
c3, at[5, 10, bankO]; 
c3, at[6, 10, bankO]; 
c3, at[7, 10, bankO]; 
c3, at[8, 10, bankO]; 
c3, at[9, 10, bankO]; 
c3, at[0a, 10, bankO] 
c3, at[0b, 10, bankO] 
c3, at[0c, 10, bankO] 
c3, at[0d, 10, bankO] 
c3, at[0e, 10, bankO] 
c3, at[0f, 10, bankO] 


c3, at[0, 10, bankl]; 
c3, at[1, 10, bankl]; 
c3, at[2, 10, bankl]; 
c3, at[3, 10, bankl]; 
c3, at{4, 10, bankl]; 
c3, at[5, 10, bankl]; 
c3, at[6, 10, bankl]; 
c3, at[7, 10, bankl]; 
c3, at[8, 10 , bankl]; 
c3, at[9, 10, bankl]; 
c3, at[0a, 10, bankl] 
c3, at[0b, 10, bankl] 
c3, at[0c, 10, bankl] 
c3, at[0d, 10, bankl] 
c3, at[0e, 10, bankl] 
c3, at[0f, 10, bankl]; 

c3, at[0, 10, bank2] 
c3, at[l, 10, bank2] 
c3, at[2, 10, bank2] 
c3, at[3, 10, bank2] 
c3, at[4, 10, bank2] 
c3, at[5, 10, bank2] 
c3, at[6, 10, bank2] 
c3, at[7, 10, bank2] 
c3, at[8, 10, bank2] 
c3, at[9, 10, bank2] 
c3, at[0a, 10, bank2' 
c3, at[0b, 10, bank2] 
c3, at[0c, 10, bank2 : 
c3, at[0d, 10, bank2; 
c3, at[0e, 10, bank2* 
c3, at[0f, 10, bank2] 

c3, at[0, 10, bank3]; 
c3, at[1, 10, bank3]; 
c3, at[2, 10, bank3]; 
c3, at[3, 10, bank3]; 
c3, at[4, 10, bank3]; 
c3, at[5, 10, bank3]; 
c3, at[6, 10, bank3]; 
c3, at[7, 10, bank3]; 
c3, at[8, 10, bank3]; 
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GOTO[noSuchPrim1tIvelnMicrocode], c3, at[9, 10, bank3]; 

G0T0[noSuchPrimitiveInM1crocode], c3, at[0a, 10, bank3]; 

G0T0[noSuchPrim1tivelnMIcrocode], c3, at[0b, 10, bank3]; 

primltlveAt: 

{uNewReceiverHigh/Low must be valid, receiver must not be smalllnt} 

Xbus <- uNewReceiver, XDisp, L3 «- atPrlm, c3, at[0c, 10, bank3]; 


MAR «- [stackHigh, stackLow + 0] {read index}, BRANCH[$, prlmAtFallA, Oe], cl; 
temp3H1gh «- prlmltlveAt, c2; 

temp3Low <- MD, XDisp, CALL[pos1tivel6B1tValueOf], c3; 

Q <- Q + objectHeaderSIze, BRANCH[$, atFailedA], cl, at[pr1m1t1veAt, 10, 

pos1tivel6B1tValueOf-return]; 

uAtlndex «- Q, CALL[get0bjectS1ze] {which establishes Q as the size of the object}, c2; 


templLow «- templLow + classFleldOffset', 


cl, atfatPrlm, 10, getObjectSIze-return]; 


commonAt: 

L2 •+• classInPrlmAt, 

otLow «■ uNewRecelversClass, CALL[fixedF1elds0f], 
commonAtAlreadyHaveFixedFlelds: 

Ybus «■ temp3Low LRot4, XDisp, {test words bit of InstanceSpec}, 
templLow «- uAtlndex, BRANCH[IndexingBytes, IndexingWords, 0b], 

IndexIngBytes: 

L2 <- atPrlm, 

templLow «* templLow + objectHeaderSIze, L3D1sp, 
uAtlndex <- templLow, BRANCH[$, returnToAtPut, Oe], 

templHigh «- uNewReceiverHIgh, cl; 

Noop, 

templLow «- uNewRecelverLow, CALL[getByteOrAddress], 
temp3Low *■ LShiftl temp3Low, SE <- 1, GOTO[atSmash], 


c2; 
c3; 


c2, at[classInPr1mAt, 10, fIxedFieldsOf-return]; 
c3; 


cl; 

c2; 

c3; 


c2; 
c3; 

c3, at[atPr1m, 10, getByteOrAddress-return]; 


indexingWords: 

templLow templLow {index + objectheaderslze} + temp2Low {fixed fields}, cl; 
[] <- Q - templLow, CarryBr {valid Index?}, c2; 

temp2Low ♦- uNewRecelverLow, BRANCH[atRangeError, $], c3; 


templHigh *■ uNewReceiverHIgh, cl; 
templLow <- templLow + temp2Low, L3D1sp, c2; 
templLow *■ templLow - 1, RET[commonAt-return], c3; 


MAR <- [templHigh, tomplLow + 0], 

Ybus <- temp3Low LRot4, XDisp, 

temp3Low MD, BRANCH[IsWordObject, atSmash, 7], 


cl, at[atPrim, 10, commonAt-return]; 
c2; 
c3; 


atSmash: 

MAR [stackHigh, stackLow + 0], cl; 
MDR <■* nllPoInter, c2; 
stackLow *- stackLow - 1, G0T0[pushTemp3LowAndD1spatch], c3; 


IsWordObject: 

GOTQ[bytecodeFailed], 


cl; 


prlmAtFal1A: 

Noop, c2; 

G0T0[act1vateNewMethod], c3; 


atRangeError: 

{If this Is a non-pointer object, and the subscript Is out of range, it might be the current display or cursor bitmap. 
If so, punt to Molasses, if not, fail the primitive and run the method} 


temp2High +■ uRumRecordHIgh, * cl; 
temp2Low <- uRumRecordLow, c2 ; 
Noop, c3; 

MAR <- [temp2H1gh, temp2Low + displayBitmapOopOffset], cl; 
CANCELBR[$, 2], c2; 
0 <- MD, c3; 

MAR *• [temp2H1gh, temp2Low + cursorBItmapOopOffset], cl; 
[] ♦- 0 xor uNewReceiver, ZeroBr, CANCE1BR[$, 2], c2; 
Q MD, BRANCH[$, atFalledC], c3; 

[] *■ Q xor uNewReceiver, ZeroBr, cl; 


0 ♦'.uAtlndex, BRANCH[$, atFalledD], c2; 

GOTO[activateNewMethod], c3; 

atFailedA: 

{zero subscripts are always Invalid!} 

Noop, c2; 

G0T0[act1vateNewMethod], c3; 
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atFalledC: 

GOTO[byt,ecodeFa11ed]; 


atFalledD: 

GOTO[atFalledC], 


getObJectSIze: 

templHIgh uNewRecelverHIgh, C 3 ; 

templLow «- uNewRecelverLow, c j. 
templLow «- templLow + sIzeFleldOffset, c2* 
Noop, c3 : 

MAR <- [templHigh, templLow + 0], c j. 
templLow «- uNewRecelverLow, L3D1sp, C 2 - 
0 *• MD {size}, RET[getObjectSize-return], c3; 


primltlveAtPut: 

{uNewRecitever High/low must be valid, receiver must not be small Int) 

temp3H1gh *• primltlveAtPut, c3, at[0d, 10, bank*]; 


MAR «- [stackHigh, stackLow + 0], L3 <*• atPutPrim, cl; 

stackLow «- stackLow - 1, c2 ! 

temp2Low MD {the value}, C 3 .’ 

MAR «- [stackHigh, stackLow + 0], c j. 

stackLow <- stackLow + 1, c2 ! 

temp3Low ♦- MD {the index}, XDisp, CALL[positiveX6B1tValue0f], c3; 

uAtPutValue <- temp2Low, BRANCH[$, atPutFall], 
positivel6BitValue0f-return]; 

0 «* 0 + objectHeaderSIze, 
uAtlndex «- Q, 

Xbus «- uNewReceiver, XDisp,{test for smalllnt} 

BRANCHf {CALL} getObJectSIze, primAtPutFailA, Oe], 


cl, at[prim1tiveAtPut, 10, 

c2; 
c3; 

Cl; 

c2; 


templLow <- templLow + classFieldOffset, CALL[commonAt], 


cl, atfatPutPrim, 10, getObjectSize-return]; 


Noop, 
Noop, 
Noop, 


returnToAtPut: 

Ybus +■ temp3Low LRot4, XDisp, 

uAtPutLow <- templLow, DISP4[atPutTable, 3], 


cl, at'[ atPutPrim, io, commonAt-return]; 
c2; 
c3; 


cl; 
c2; 


{storing a pointer} 

templLow «- uNewRecelverLow, C 3, at[of> 10i at p utTa ble]; 


templLow <- templLow + deltaWordOffset, 
Noop, 

Noop, 


cl; 
c2; 
c3; 


MAR «• [templHigh, templLow + 0] {read delta word to determine volatility}, cl* 
templLow uAtPutLow, c 2 * 

Ybus «- MD, XDisp, C 3 ! 


MAR - [templHigh, templLow + 0] {get old contents, and refd it}, BRANCH[$, atPutlsVolatile, 0b] cl* 
Noop, c2 . 

otLow «* MD, XDisp, CALL[refd], LI «- viaPrimitIveAtPut, c3; 


templHigh *- uNewRecei verHIgh , 
templLow uAtPutLow, 

Noop, 

MAR «- [templHigh, templLow + 0], 

MDR «- uAtPutVal ue, 

otLow *- uAtPutValue, XDisp, CALL[refi], 


cl, at[viaPrim1tiveAtPut, 10, refdReturn]; 

c2; 

c3; 

cl; 
c2; 
c3; 


atPutlsVolatile: 

MDR ♦- uAtPutValue, LOOPHOLE[mdrok], 
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atPutWrapup: 

Noop, 

MAR ♦- [stackHIgh, stackLow + 0] {smash value on stack}, 
MDR «• nilPointer, 
stackLow <- stackLow - 1, 

temp3Low *- uAtPutValue, 

Noop, 

G0T0[atSmash], 


c3; 

cl, a.t[ vlaPrlmiti veAtPut, 10, refIReturn]; 

c2'; 

c3; 

Cl; 

c2; 
c3; 


ImproperlnstanceSpec: 

G0T0[Imp roperlnstanceSpec], c ._ at[ob 10 atPutTabl8] . 


{storing a word} 

Noop, 

GOTOEbytecodeFalled], 

{storing a byte} 

Noop, 

G0T0[bytecodeFa11ed], 


c3, at[ 7, 10, atPutTable]; 
cl; 


c3, at[ 3, 10, atPutTable]; 
cl; 


atPutFall: 

Noop, 

prlmAtPutFallA: 

G0T0[act1vateNewMethod], 


prlmltlveSIze: 


Xbus *- uNewRecelver, XDIsp, 

BRANCHES,sIzeFallC, Oe], 

L3 «- slzePrlm, 

otLow <■ uNewRecelversClass, L2 *■ forSIzePrlm, CALLfflxedFleldsOf], 
CALL[get0bjectS1ze], 

[] *" temp3Low LRot4, XDIsp, {on the Instance spec}, 
temp3Low <- 0 - objectHeaderSIze, DISP4[s1zeTable, 3], 


c3, at[0e, 10, bank3]; 

cl; 
c2; 
c3; 


c2, at[forS1zePr1m, 10 , fIxedFleldsOf-return]; 
cl, atfsIzePrlm, 10, getObjectSize-return]; 


{pointers} 

temp3Low temp3Low {size - objectHeader} - temp2Low {fixed fields}, 

NegBr, G0T0[tryForSmall], c3, at { 0 f, io, sIzeTable]; 

{Invalid} 

badlnstanceSpec; 

G0T0[badInstanceSpec], c . t at[ob 10 sizeTable] . 

{words--could be current display bitmap} 

temp2H1gh - uRumRecordHIgh, c3i at[7 10 sizeTab1e] . 


temp2Low <- uRumRecordLow, 
Noop, 

Noop, 


cl; 
c2; 
c3; 


MAR <- [temp2H1gh, temp2Low + dlsplayBitmapOopOffset}. 
CANCELBR[$, 2], 


[] *- 0 xor uNewRecelver, ZeroBr, 
BRANCH[$, sizeFailA], 

[] tempSLow, NegBr, G0T0[tryForSmall], 


sizeFailB; 

CANCELBR[$, 3], , 

sizeFailA: * 

Noop, c3 . 

G0T0[bytecodeFa11ed], cl . 

sizeFailC: 

Noop, , 
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G0T0[act1vateNewMethod], 


c3; 


{bytes} 

templLow <- templLow + deltaWordOffset, c3, at[3, 10, sizeTable]; 


MAR <- [templHigh, templLow + 0], cl; 
temp3Low *■ temp3Low + temp3Low, PgCrOvDisp, c2; 
Ybus <- MD, XDisp {test odd bit}, BRANCH[$, byteSIzeFall, 2], c3; 


BRANCH[s1zeEven, slzeOdd, Od], cl; 

sIzeEven: 

GOTO[byteS1zeOk], c2; 

slzeOdd: 

temp3Low «■ temp3Low - 1, GOTO[byteS1zeOk], c2; 

byteSIzeOk: 

Noop, c3; 

tryForSmall: 

temp3Low <- temp3Low + temp3Low + 1, PgCrOvDIsp, BRANCH[$, sizeFailB], cl; 

BRANCH[sizeOk, sIzeFall, 2], c2; 

slzeOk: 

GOTO[pushTemp3LowAndDispatch], c3; 


sIzeFall: 


Noop, 


c3; 


byteSIzeFall: 

CANCELBR[bytecodeFailed. Of], 


cl; 


primitiveStringAt: 

{uNewReceiverHigh/Low must be valid) 

Noop, c3, at[0f, 10, bank3]; 


MAR [stackHigh, stackLow + 0] {read Index}, L3 «- stringAtPrim, cl; - 

temp3H1gh <- primitlveStringAt, c2; 

temp3Low *- MD, XDisp, CALL[posit1vel6BitValue0f], c3; 


0 «- 0 + twIceObjectHeaderSize, BRANCH[$, stringAtFallA], L2 <- stringAtPrim, cl, at[primitiveStringAt, 10, 
posIt1vel6BitValue0f-return]; 

uAtlndex <- Q, CALL[getObjectS1ze], C2; 

{the call on getObjectSize returns directly to getByteOrAddress, which in turn returns directly to 
the following instruction:} 


Noop, 

getByteOrAddress-return]; 

Noop, 

LI «- prlmStrlngAt, 

otLow «- characterTableOop, CALL[otMap], 

templLow templLow + objectHeaderSize, 
templLow «- templLow + temp3Low, 

Noop, 


c3, at[stringAtPrim, 10, 


cl; 
c2; 
c3; 

cl, at[primStr1ngAt, 10, otMap-return]; 

c2; 

c3; 


MAR [templHigh, templLow + 0], 
Noop, 

temp3Low *• MD, G0T0[atSmash], 


cl; 
C2; 
c3; 


getByteOrAddress: 

temp3Low +■ LShiftl Q {object size}, SE <- 0, {yields object size in bytes}, cl, at[stringAtPrim, 10, 


getObjectSize-return]; 

0 *■ uAtlndex, c2; 

templLow <- templLow + deltaWordOffset, c3; 

MAR <- [teunplHigh, templLow + 0] {read the instances delta word}, cl; 

templLow uNewReceiverLow, c2; 

Ybus «- MD, XDisp {and dispatch so that we can test its odd bit}, c3; 
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0 *■ Q - 1, {zero adjust), BRANCH[str1ngLengthIsEven, strlngLengthlsOdd, Od], cl; 
strlngLengthlsEven: 

GOTO[str1ngOnward], C 2 ; 


strlngLengthlsOdd: 

temp3Low +■ temp3Low - 1 , GOTO[str1ngOnward], 


c2; 


strlngOnward: 

temp2Low «- uAtlndex {valid Index?}, C 3 : 

[] *■ temp3Low - temp2Low, CarryBr, C l ; 

temp2Low «- RShlftl 0, SE «- 0 {yields word offset), BRANCH[str1ngAtFa11B, $’], c2; 
templLow*- templLow + temp2Low, L2D1sp, c3; 

MAR *■ [templHIgh, templLow + 0] {read correct word from object), BRANCH[$, gettlngByteAddress, Oe), L2D1sp. cl: 
Ybus *• Q, CANCELBR[$, Of], YDIsp {which byte do we want), c2; ' 

tempSLow <■ MD, BRANCH[fetchLeftByte, fetchRIghtByte, Oe], c3; 

fetchLeftByte: 

temp3Low <■ temp3Low LRot8, L2D1sp, GOTO[str1ngAnd], cl; 

fetchRIghtByte: 

GOTOfstrlngAnd], L2D1sp, c j. 

strlngAnd: 

tempSLow - temp3Low and Off, RET[getByteOrAddress-return], c2; 


gett1ngByteAdd ress: 

RET[getByteOrAddress-return], 


strlngAtFallA: 

Noop, C 2 - 

strlngAtFallB: 

GOTO[act1vateNewMethod], C 3 ; 


prlmltlveStrlngAtPut: 

{uNewRecelverHIgh/Low must be valid) 

temp3H1gh <- prlmltlveStrlngAtPut, 

MAR «- [stackHIgh, stackLow + 0], 

L2 <- prlmStrlngAtPut, 

otLow «- MD {the value), XDIsp, CALLfgetClass], 

0 <- classCharacterOop, 

[] <- tempSLow xor 0, ZeroBr, 

uAtPutValue <- otLow, BRANCH[str1ngAtPutFa11A, $], 

templLow * templLow + f1rstFleldOfObject, 

Noop, 

Noop, 

MAR <- [templHIgh, templLow + 0], 
stackLow <- stackLow - 1, 

temp2Low <- MD {the ascii value of the character), 

MAR <- [stackHIgh, stackLow + 0] {read Index), L3 
stackLow <■ stackLow +1, 

temp3Low < MD, XDIsp, CALL[pos1t1vel88itValue0f], 


c3, at[0, 10, bank4]; 

cl; 
c2; 
c3; 

cl, at[prlmStrlngAtPut, 10, getClass-retu 

c2; 

c3; 

Cl; 

C2; 
c3; 

Cl; 
c2; 
c3; 

strlngAtPutPrlm, cl; 

c2; 
c3; 


0 <- 0 + twiceObjectHeaderSIze, BRANCH[$, strlngAtPutFallB], cl, at[pr1m1t1veStrinoAtPut 10 

posItlvelBBItValueOf-return]; “ 

uAtlndex *■ Q, C 2 . 

temp2Low « RShiftl temp2Low, SE <- 0, c3; 


L2 *• StrlngAtPutPrlm, c j ; 

uAtPutLow <- temp2Low, CALL[get0bjectS1ze], c2; 


Noop, 

getObjectSIze-return]; 
Noop, 

CALL[getByteOrAddress], 


cl, at[stringAtPutPr1m, 10, 

c2; 
c3; 


temp2Low *■ uAtPutLow, 
getByteOrAddress-return]; 


c3, at[str1ngAtPutPr1m, 10, 


Primitives.me 


9-Jul-84 18:12:02 PDT 



Primitives.me 


9-Jul-84 18:12:02 PDT 


7 


MAR *- [templHigh, templLow + 0] {read correct word}, 
Ybus *• 0. YDIsp {which byte?}, 

temp3Low «- MD, BRANCH[keepR1ghtByte, keepLeftByte, Oe], 
keepLeftByte: 

temp3Low *■ temp3Low LRot8, GOTO[stringAtPutAnd], 


keepRightByte: 

GOTO[stringAtPutAnd], 


strlngAtPutAnd: 

temp3Low *- temp3Low and Off, 
temp2Low <- temp2Low LRotfi, 


Ybus ♦* 0, YDIsp {need to rotate?}, 

temp3Low tempSLow or temp2Low, BRANCHfatPutOk, atPutRotate, Oe], 

atPutOk: 

GOTO[stringAtPutWr1te]* 


atPutRotate: 


temp3Low <- temp3Low LRot8, GOTO[str1ngAtPutWr1te], 


Cl; 

c2; 

c3; 


cl; 


Cl; 


c2; 

c3; 

Cl; 

C2; 


c3; 


C3; 


st rlngAtPutWrlte: 

MAR «- [templHigh, templLow + 0], 
MDR temp3Low, GOTO[atPutWrapup], 


strlngAtPutFallA: 

GOTO[stringAtPutFallB], 

strlngAtPutFallB; 

Noop, 

GOTO[activateNewMethod], 


GOTO[noStichP rim It 1 velnMIcrocode], 
GOTO[noSuehPrimitivelnMIc rocode], 
GOTO[noSuchP rimltivelnMIcrocode], 


c3, at[l, 10, bank4] 
c3, at[2, 10, bank4] 
c3, at[3, 10, bank4] 


primltiveObjectAt: 

Xbus uNewReceiver, XDisp, {smalllnts are a no-no} c3. at[ 4 , 10. bank 4 ]; 

MAR ♦- [stackHigh, stackLow + 0], BRANCH[$, objectAtFal1A, Oe], cl* 

temp3High «* primltiveObjectAt, 
temp3Low <- MD, XDisp, CALL[pos1tivel6B1tValueOf], 

Q <- Q + objectHeaderSi 2 e, BRANCH[$, objectAtFailB], 
positivel6BitValueOf -re turn]; 
uAtlndex «- Q, 

templHigh «- uNewReceiverHigh, 

templLow *■ uNewReceiverLow, 
templLow •** templLow + objectHeaderSIze, 
temp2Low 0 {no fixed fields for commonAt}, 

MAR <- [templHigh, templLow + 0], 
temp3Low +■ RRotl (1) {tell commonAt code that we're deallnq with pointers"} c2- 
templLow ^ HD, 

templLow <- RShiftl (templLow and 7f), SE «- 0, {extract literal count} cl* 

0 <- templLow + objectHeaderSIze + l{yields max legal index Including heade’r}, L3 - atPrim {tell commonAt to fall thru 
not returnj, cZ; 6 

templLow <- uAtlndex {argument + objectheadersize}, GOTO[indexingWords],c3; 


c2; 

c3; 

cl, at[primitiveObjectAt, 10, 

c2; 
c3; 

cl; 
c2; 
c3; 

cl: 
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ObjectAtFallA: 

G0T0[objectAtFa11], c2; 

objectAtFallB: 

Noop, c2; 

objectAtFall: 

GOTOfactivateNewMethod], c3; 

G0T0[noSuchPr1m1tiveInM1crocode], c3, at[6, 10, bank4]; 


prlmltlveNew: 

L2 +- newFrimltive, c3, at[6, 10, bank4]; 

temp3H1gh «- vlaPrlmltlveNew {return linkage for Instantiation}, cl; 

L3 <- 0 {flag = new with no argument}, c2; 

L3Disp, G0T0[primitiveNewCommon], c3; 

primitlveNewWIthArg: 

Noop, c3, at[7, 10, bank4]; 


MAR 4 . [stackHigh, stackLow + 0] {read argument}, L3 «- 1 {flag = new with argument}, cl; 
temp3High *■ primitIveNew, c2 ; 

temp3Low <- MD, XDisp, CALL[pos1t1vel6BitValue0f], c3; 

stackLow stackLow - 1 {point at class to instantiate}, CANCELBR[$, 1], cl, at[primit1veNew, 10, 
posit1vel6BitValue0f-return]; 

L2 newPrlmltlve, c2; 

L3D1sp, c3; 


prlmltlveNewCommon: 

{read class oop from stack, then, if new with arg, readjust stackLow to point at tos. L2 must already be set to 
newPrimltive} 

MAR «- [stackHigh, stackLow + 0], BRANCH[vanillaNew, argumentativeNew, Oe], cl; 
vanillaNew: 

G0T0[new0nward], c2; 

argumentativeNew: 

stackLow <- stackLow + 1 {point at tos}, G0T0[new0nward], c2; 


newOnward: 

otLow «- MD, CALL[ fixed Fields Of], c3; 


{now use the instanceSpec twice -- once to test for indexability, once for which kind of object to create} 
temp3Low <- temp3Low LRot4 {rotate InstanceSpec for dispatch}, L3D1sp {args/noargs flag}, c2, at[newPrim1t1ve, 10, 
fixedFieldsOf-return]; 

[] «- temp3Low, YDisp {to test Indexable flag}, BRANCH[newNoArgs, newArgs, Oe], c3; 
newNoArgs: 

[] «■ temp3Low, YDisp {for type of object to create}, BRANCH[new0ka, newFalla, Od], cl; 


newArgs: 

BRANCH[newFai1b, newOkb, Od], cl; 

newOka: {new without argument} 

temp3Low <- temp2Low {the fixed size}, DISP4[whichFlavor, 3], c2; 

newOkb: {new with argument} 

temp3High <- viaPrimitiveNew {return linkage for instantiation}, c2; 

Noop, c3; 

[] *■ temp3Low, YDisp {for type of object to create}, cl; 


temp3Low «- temp2Low {fixed size} + 0 {variable size}, DISP4[whichFlavor, 3], c2; 


uClassToInstantiate *■ otLow, CALL[createlnstanceWithBytes], 
uClassToInstantiate *• otLow, CALLfcreatelnstanceWithWords], 
uClassToInstantiate «* otLow, CALL[createInstanceWithPointers], 


c3, at[3, 10, whichFlavor]; 
c3, at[7, 10, whichFlavor]; 
c3, at[0f, 10, whichFlavor] 


temp3Low +■ otLow {oop of the new object}, L3D1sp, 
createlnstance-return]; 

BRANCH[newWithout, newWIth, Oe], 

newWithout: {replace class to instantiate with new object} 


cl, at[viaPrimitiveNew, 10, 
c2; 
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G0T0[pushTemp3LowAndD1spatch], C 3 . 

newWIth: {nil out requested size, then replace class to Instantiate with new oblectl 
Noop, J c3 . ' 

MAR «- [stackHIgh, stackLow + 01, cl . 

MDR * nllPoInter, c2 ! 

stackLow <- stackLow - 1 {point at class field), G0T0[pushTemp3LowAndD1spat’ch], c3; 


newFalla: 

CANCELBR[newFa11ed, Of], 

newFallb: 

Noop, 

newFalled: 

{failed because of argument problems. ' run the method) 
GOTO[act1vateNewMethod], 


GOTO[noSuchPr1m1t1velnMIc rocode], 


c3, at[8, 10, bank4]; 


prlmltlvelnstVarAt: 

Xbus <- uHewReceiver, XDIsp, L3 <- InstVarAtPrlm, 


c3, at[9, 10, bank4]; 


MAR *- [stackHIgh, stackLow + 0], BRANCH[$, InstVarAtFallA, Oe], cl- 
temp3H1gh *- prlmltlvelnstVarAt, e2 ’ 
tempSLow <- MD, XDisp, CALL[posit1vel6B1tValueOf], C 3- 


Q * Q + objectHeaderSIze, BRANCH[$, InstVarAtFallB], 
postt1vel6B1tValueOf-return]; 
uAtlndex <- Q, CALL[getObjectS1ze], 

templLow «- templLow + classFleldOffset, 

L 2 <- forlnstVarAtPrim, 

otLow •- uNewRecelversClass, CALL[fIxedFleldsOf], 


cl, at[prlmltlvelnstVarAt, 10, 
c2; 

cl, at[InstVarAtPrlm, 10, getObjectSIze-return]: 

c2; 

c3; 


temp2Low <- 0 {do not consider fixed fields for 
returning), c2, at[forInstVarAtPr1m, 10, fl 
Noop, 


InstVarAt), L3 *• atPrim {so that we fall Into the at code rather than 
xedFleidsOf-return]; 

c3; 


GOTO[commonAtAlreadyHaveFIxedFields], 


InstVarAtFallA: 

GOTO[1nstVarAtFa11], 

InstVarAtFallB: 

Noop, 

InstVarAtFall: 

Noop, 


c2; 


c2; 


c3; 


G0T0[bytecodeFa11ed], 


G0T0[noSuchPr1m1tiveinMicrocode], 
G0T0[noSuchPrimIt 1velnMIc rocode], 
G0T0[noSuchPr1m1t1velnMIcrocode], 


c3, at[0a, 10, bank4]; 
c3, at[0b, 10, bank4]; 
c3, at[0c, 10, bank4]; 


primitive FirstInstance: 

temp2Low <- uNewRecelver {get the class we are looking for Instances of), c3, at[0d, 10, bank 4 ] ; 
otLow «- 0 {search entire ot), c3 . 

fIndOne: 
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Hoop, c2 . 

considerNextA: 

otLow 4 otLow + 2 {next ot entry), CarryBr, C 3 ; 

MAR 4 [otHIgh, otLow + 1 ] {read object table entry), BRANCH[$, noMorelnstances], cl- 

CANCELBR[$, 2), 

templHigh .4 MD, XwdDIsp, C 3 | 

MAR 4 - [otHIgh, otLow + 0], DISP2[fIndlnstance], cl; 


{In use) 

L 2 «- lookingForlnstances, 

templLow *- MD, CALL[getClassAl readyHaveBase], 


C2, at[0, 4, fIndlnstance); 
c3; 


[] temp2Low xor temp3Low, ZeroBr {correct class?), 
BRANCH[cons1derNextA, $], 

temp3Low otLow, G0T0[pushTemp3LowAndD1spatch] {yes, 

{forwardilng block) 
forwardIngBl ock: 

GOTO[forwardingBlock], 

being RecursivelyFreed: 

G0T0[forwardIngBlock], 

G0T0[cons 1de rNextA], 


cl, at[lookingFor!nstances, 10, getClass-retornl: 
c 2 ; 

return oop), c3; 

c*, at[l, 4, fIndlnstance); 

c*, at[2, 4, findlnstance); 
c2, at[3, 4, findlnstance]; 


noMorelnstances: 

CANCELBR[$, 2], 

G0T0[activateNewMethod], 


primitiveNextlnstance: 

temp2Low 4 uNewRecelversClass, c3, at[ 0 e, 10 , bank4); 

otLow *- uNewRecelver, G0T0[f IndOne] , cl; 


G0T0[noSuchPrimit1velnMicrocode], 

primitlveBlockCopy: 

Noop, 

MAR *- [stackHIgh, stackLow + 0], 
stackLow <- stackLow - 1, 
templLow «- MD {argument count), 

templHigh <- uNewReceiverHigh, 
templLow *• uNewReceiverLow, 
otLow *■ uNewRecelver {context oop), 

prlmltiveBlockCopyViaDirectDispatch: 


c3, at[0f, 10, bank4]; 


c3. at[0, 10, banks]; 
cl; 
c 2 ; 

C3; 

cl; 
c 2 ; 
c3; 


uSaveHome otLow, - cl* 
templLow *- templLow + methodFleldOffset, c2; 
stackLow 4 stackLow + 1 {in case of instantiation failure), c3; 

MAR 4 [templHigh, templLow + 0], C l ; 
templLow «- templLow - methodFieldOf fset, c2 • 
Ybus «- MD, XDisp, c3 ! 


temp3High 4 viaBlockCopy, BRANCH[moreBlockCopy, blockCopyOfBlockContext, Oe], cl; 
blockCopyOfBlockContext: 

templLow 4 templLow + homeFieldOffset, c2; 

Noop, c3 ; 


MAR 4 [templHigh, templLow + 0], Ll 4 blockCopyOfBlock, cl; 
Noop, cZ . 
otLow 4 MD {oop of home context), CALL[otMap2], c3; 


uSaveHome 4 otLow, 
moreBlockCopy: 

templLow 4 templLow + sizeFieldOffset, 
otLow 4 blockContextClassOop, 


cl, at[blockCopyOfBlock, 10otMap2-return]; 

c 2 ; 
c3; 
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MAR <- [templHigh, templLow + 0], 

uClassToInstantlate +- otlow, 

temp3Low «- MD {size of new block context}, 

temp3Low *■ temp3Low - objectHeaderSIze, 
Noop, 

CALL[createInstanceW1thPoInters], 

Noop, 

Noop, 

temp3Low blockCopylng, 


cl; 
c2; 
c3; 

Cl; 

c2; . 

c3; 

cl, at[v1aB1ockCopy, 10, createlnstance-return]; 

c2; 

c3; 


uMakeVolatlleLInkage «- temp3Low, CALL[makeVolat11e] cl; 

temp3Low «- uCurrentMethodLow, cl, at[blockCopying, 10, makeVolatlle-return]; 

temp3Low «- IpLow - temp3Low, {word relative plus headerSIze} c2; 

temp3Low «- temp3Low - objectHeaderSIze {word relative}, c3; 


temp3Low «- LShlftl temp3Low, SE «- pcl6{byte offset into compIledMethod. note that the SE«-pcl6 has togqled pcl6, so we 
will toggele It again soon},cl; 

temp3Low «- temp3Low + 4, C 2 ; 

temp3Low <- LShlftl temp3Low, SE <- 1, {yields Smalllnt}, c3; 


templLow <- templLow + instruct1onPo1nterF1eld0ffset, cl; 
temp2Low «- 0 + PC16 {toggle again}, c2; 
Noop, c3 . 


MAR +■ [templHIgh, templLow + 0], C l ; 
MDR *- temp3Low, C 2 ^ 
templLow <- templLow + offsetFromlnstructlonPoInterToStackPoInter, c3; 


MAR «• [templHIgh, templLow + 0], cl; 
MDR *■ 1 {zero as Smalllnt}, C 2; 
templLow <- templLow + offsetFromStackPointerToArgCount, c3; 

MAR <- [templHIgh, templLow + 0], cl; 
MDR *- uArgumentCount, C 2; 
templLow <- templLow + offsetFromArgCountToInitlalIP, c3; 


MAR <- [templHIgh, templLow + 0], cl; 
MDR «- temp3Low, C 2 | 
templLow *• templLow + offsetFromlnitlallPToHome, c3; 

MAR «- [templHigh, templLow + 0], c j. 
MDR *- uSaveHome, c3 J 
Noop, c3 ! 


MAR «- [stackHIgh, stackLow + 0], cl; 
MDR «* nilPointer, C 2 j 
stackLow +■ stackLow - 1, c3 ! 


temp3Low +■ uNewObject, cl; 
Noop, C 2 ’ 
G0T0[pushTemp3LowAndD1 spatch], c3 J 


primltlveValue: 


{handles value, value:, value:value:, and so on. the receiver must already have been verified to be an instance of 
BlockContext and uArgumentCount must be correct} 

°tLow <- uNewReceiver, c3, at [ lf io, bankfi]; 


prlmltiveValueVlaDIrectDIspatch: 

Q «• prlmValue, c j. 
uMakeVolatlleLInkage «- Q, c2; 
Noop, C 3; 


uNewContextOop otLow, CALL[makeVolat11e], 


cl; 


templLow *■ templLow + senderFieldOffset, 
temp3Low *■ uArgumentCount, 

temp3Low LShlftl temp3Low, SE<- 1, {shift for easy compare}. 


cl, at[primValue, 10, makeVolatlle-return]; 
c2; 
c3; 


MAR <- [templHigh, templLow +0], c j ; 
templLow +• templLow + offsetFromSenderToBlockArgCount, c2; 
Q <- MD {sender field, it better be nil}, c3; 


MAR *■ [templHigh, templLow + 0], cl; 

[] «- 0 xor nilPointer, ZeroBr, C 2 • 

temp2Low «- MD {block argument count, a Smalllnt}, BRANCH[blockAlreadyActive, $], c3; 


[] <- temp2Low xor temp3Low, ZeroBr {verify that arg counts match}, cl; 
temp2Low «- uArgumentCount, BRANCH[valueArgCountM1smatch, $], c2; 
stackLow <- stackLow - temp2Low {point at blockContext oop}, c3; 


MAR <- [stackHigh, stackLow + 0] {smash block context oop In active context}, cl; 
MDR «- nilPointer, C 2; 

temp2Low «* stackLow + temp2Low {last word to move}, c3; 


stackLow «■ stackLow + 1 {first word to move}, cl; 

templLow <- templLow + offsetFromBlockArgumentCountToFirstTemp {first destination word}, LI 4 - primltlveValue, c2- 
CALL[transferWords], c3; 


0 *■ uArgumentCount, 
stackLow *■ stackLow - Q - 1, 
Noop, 


cl, at[primitlveValue, 10, transferWords-return]; 
c2; 

C3; 
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templLow <- uMakeVolatileLow, 

tempiLow templLow + InltiallnstructlonPoInterOffset, 
Noop, 


cl; 

c2; 

c3; 


MAR <- [teraplHIgh, templLow + 0] {read Initial Ip}, 
templLow «• templLow - offsetFromlnltlallpToIp, 

0 MD {the initial Instruction pointer}. 


MAR <- [templHIgh, templLow + 0] {write Ip}. 

MDR «- 0, 

templLow <- templLow + offsetFromlpToStackPointer. 


cl; 
c2; 
c3; 


MAR <- [templHIgh, templLow + 0] {write stackPoInter}. 
MDR <- tempSLow, 

templLow «- templLow - off sotFromSenderToStackPol.nter, 


MAR *- [templHIgh, templLow + 0] {write'caller}, 
MDR <- uActiveContextOop, 
temp2H1gh *- uRumRecordHIgh, 


temp2Low *■ uRumRecordLow, 
Noop, 

Noop, 


cl; 
c2; 
c3; 


MAR <- [temp2H1gh, temp2Low + leafContextOopOffset!. 
CANCELBRf $, 2], J 
temp3Low ♦* MD {oop of leaf context}, 


Noop, 

[] *- temp3Low xor uActiveContextOop, ZeroBr, 
BRANCH[valueNotLeaf, $], 


MAR «• [temp2High, temp2Low + 1eafContextOopOffset], 

MDR <- nilPoInter, LI <- vlaPMmltiveValue, CANCELBR[$, 2], 
otLow +• temp3Low LRotO, XDisp, CALL[refd], 


cl; 

L00PH0LE[wok],c2; 


c3; 


valueNotLeaf: 

Noop, 

G0T0[newAct1veContext], 


cl, at[viaPrimitiveValue, 10 , refdReturn]: 


blockAlreadyActIve: 

GOTO[bytecodeFa11ed], 

valueArgCountMlsmatch: 

GOTO[blockAlreadyActIve], 


G0T0[noSuchPr1m1t1velnMIcrocode], 


c3, at[2, 10, banks]; 


primitivePerform: 

0 «■ uArgumentCount, 

temp2H1gh <- uAct1veContextHIgh {point at perform receiver}, 
temp2Low <- stackLow - Q, 

0 *• 0 - 1 , 


c3, at[3, 10, bank5]; 

cl; 
c2; 
c3; 


MAR <- [temp2H1gh, temp2Low + 0] {read perform receive 

temp2Low «- temp2Low +1, 

otLow - MD, XDisp, CALL[getClass], 

MAR <- [temp2H1gh, temp2Low + 0] {read selector to be 
atfprlmitivePerform, 10, getClass-return]'; 
uArgumentCount «* 0, 

0 *■ MD, CALL[startMethodLookup], 


r}, L2 <- prlmltlvePerform, cl; 

c2; 
c3; 

performed}, L3 «- 1 {this is a lookup for perform}, 

c2; 
c3; 


cl, 


{now determine the arg count of method we are to perform} 
[] <r templLow {methodHeader} LRot4, XDisp, 

0 «- uArgumentCount, DISP4[performFlagTable,1], 

{flag = 0 .. 6} 

G0T0[noArgs], 

temp3Low 1, G0T0[performArgCountCheck], 


cl,at[ 1 , 10 , performOrExecute-return]; 
c2; 

c3, at[l, 10, performFlagTable]; 
c3, at[3, 10 , performFlagTable]; 


Primitives.me 


9-Jul-84 18:12:02 PDT 


12 



Primitives.me 


9-Jlul-84 18:12:02 PDT 


13 


temp3Low <- 2, GOTO[performArgCountCheck], 
temp3Low 3, GOTO[perforroArgCountCheck], 
temp3Low <- 4, GOTO[performArgCountCheck], 
temp3Low *- 0, GOTO[performArgCountCheck], 
temp3Low +- 0, GOTO[performArgCountCheck], 

temp3Low <- RShlftl (templLow and 7f), SE +■ 0, {extract literal count} 


c3, at[5, 10, performFlagTable]; 
c3, at[7, 10, performFlagTable]; 
c3, at[9, 10, performFlagTable]; 
c3, at[0b, 10, performFlagTable]; 
c3, at[0d, 10, performFlagTable]; 
c3, at[0f, 10, performFlagTable]; 


ot.Low +- uNewMethodLow, cl; 
temp3High <* UNewMethodHIgh, c2; 
temp3Low *- temp3Low + otLow, c3; 

temp3L.ow *- temp3Low + objectHeaderSIze, cl; 
temp3Low <- temp3Low - 1, c2; 
Noop, c3; 

MAR «- [temp3High, temp3L.ow + 0] {read method header extension}, cl; 
Noop, c2; 
temp3Low MD, c3; 

temp3Low «* temp3Low LRot8, cl; 
temp3Low <- RShlftl (temp3Low and Off), SE «- Q, c2; 
G0T0[performArgCountCheck], c3; 


performArgCountCheck: 

[] temp3Low xor 0, ZeroBr, cl; 
templHigh «- uActiveContextHIgh, BRANCHfperformFallA, $], c2; 
templLow +> stackLow - Q, {templHIgh/Low is now destination high/low} c3; 


uPrimitlveNumber temp2Low, ZeroBr, LI <- performPrlm, cl; 
temp 2 Low «- stackLow {source limit}, BRANCH[performFa11C, $], c2; 
stackLow *■ templLow + 1 {source start}, CALL[transferWords], c3; 


noArgs: 

[] 4- 0, ZeroBr, {is send argeount also 0?} cl; 
uPrimitlveNumber «- temp2Low, BRANCH[performFa1 IB, $], c2; 
Noop, c3; 

MAR <- [stackHigh, stackLow + 0] {smash perform selector}, cl; 
MDR «- nllPointer, c2; 
Noop, c3; 


stackLow *- stackLow - 1, cl, at[performPrim, 10, transferWords-return]; 

temp2Low *- uPrimitlveNumber, c2; 

templLow *- uNewMethodHeader, G0T0[executeNewMethodViaPr1m1t1vePerform], c3; 


performFailA: 

Noop, c3; 

G0T0[bytecodeFa11ed], cl; 

performFailB; 

Noop, c3; 

GOTOfbytecodeFalled], Cl; 

performFal1C: 

Noop, c3; 

G0T0[bytecodeFa11ed], cl; 


G0T0[noSuchPrim1tIvelnMIcrocode], 
G0T0[noSuchPrim1t1velnMicrocode], 
GOTO[noSuchPrimit1velnMicrocode], 
G0T0[noSuchPrim itivelnMicrocode], 
GOTO[noSuchPrimitIvelnMIcrocode], 
GOTOfnoSuchPrimitivelnMicrocode], 
GOTO[noSuchPrimitivelnMicrocode], 
GOTO[noSuchPrimitivelnMicrocode], 
G0T0[noSuchPrimitIvelnMIcrocode], 
GOTO[noSuchPrimitivelnMicrocode], 
G0T0[noSuchPrimitivelnMicrocode], 
G0T0[noSuchPr1mitivelnMic rocode], 


c3, at[4, 10, bank5]; 
c3, at[6, 10, bank5]; 
c3, at[6, 10, bank5]; 
c3, at[7, 10, bank5]; 
c3, at[8, 10, bank5]; 
c3, at[9, 10 , bankB]; 
c3, at[0a, 10, bank5] 
c3, at[0b, 10, bank5] 
c3, at[0c, 10, banks] 
c3, at[0d, 10, bank5] 
c3, at[0e, 10, banks] 
c3, at[0f, 10, banks] 
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GOTO[noSuchPrimitivelnMicrocode], 
GOTO[noSuchPrimitivelnMicrocode], 
GOTO[noSuchPrimitivelnMicrocode], 
GOTOfnoSuchPrimitivelnMicrocode], 
GOTO[noSuchPrimitivelnMicrocode], 
G0T0[noSuchPrimit1velnMicrocode], 
G0T0[noSucbPrim1tivelnMicrocode], 
GOTO[noSuchPrimitivelnMicrocode], 
GOTOfnoSuchPrimitivelnMicrocode], 
GOTO[ noSlichP rimiti velnMic rocode], 
G0T0[noSuchPrimitivelnMicrocode], 
GOTO[noSuchPrim1tivelnMicrocode], 
GOTOfnoSuchPrimitivelnMicrocode], 
G0T0[noSuchPrimit1velnMicrocode], 


c3, at[0, 10, bank6]; 
c3, at[l, 10, bank6]; 
c3, at[2, 10, bank6]; 
c3, at[3, 10, bank6]; 
c3, at[4, 10, bank6]; 
c3‘, at[6, 10, bank6]; 
c3, at[6, 10, bank6]; 
c3, at[7, 10, bank6]; 
c3, at[8, 10, bank6]; 
c3, at[9, 10, bank6]; 
c3, at[0a, 10, bank6]; 
c3, at[0b, 10, bank6]; 
c3, at[0c, 10, bank6]; 
c3, at[0d, 10, bank6]; 


GOTO[senctSpecialMessage6] { »■ }, c3, at[0e, 10, bank6]; 

G0T0[noSuchPrimitiveInMicrocode], c3, at[0f, 10, bank6]; 


GOTOfnoSuchPrimitivelnMicrocode], 
G0T0[noSuchPr1mit1velnMicrocode], 
G0T0[noSuchP rimitivelnMicrocode], 
GOTO[noSuchPrimitivelnMicrocode], 
GOTOfnoSuchPrimitivelnMicrocode], 
G0T0[noSuchPrimitivelnMicrocode], 
GOTOfnoSuchPrlmit1velnMicrocode], 
GOTO[noSuchPrimitivelnMicrocode], 
G0T0[noSuchP rimitivelnMicrocode], 
G0T0[no$uchPrimitivelnMicrocode], 
GOTOfnoSuchPrimitivelnMicrocode], 
GOTOfnoSuchPrimitivelnMicrocode], 
GOTOfnoSuchP rimitivelnMic rocode], 
G0T0[noSuchPrlmitivelnMicrocode], 
G0T0[noSuchP rimitivelnMicrocode], 
G0T0[noSuchPrlmitivelnMicrocode], 


c3, at[0, 
c3, at[l, 
c3, at~ 
c3, at 
c3, at 
c3, at 
c3, at[6, 
c3, at[7, 
c3, at[8, 
c3, at[9, 
c3, at[0a 
c3, at[0b 
c3, at[0c 
c3, at[0d 
c3, at[0e 
c3, at[0f 


10, bank7] 
10, bank7] 
10. bank7] 
10, bank7] 
10, bank7] 
10, bank7] 
10, bank7] 
10, bank7] 
10, bank7] 
10, bank7] 
10, bank7] 
10, bank7] 
10, bank7] 
10, bank7] 
10, bank7] 
10, bank7] 


G0T0[noSuchPrimitivelnMicrocode], 
GOTOfnoSuchPrimitivelnMicrocode], 
G0T0[noSuchPrimitivelnMicrocode], 
GOTO[noSuchPrimitivelnMicrocode], 
G0T0[noSuchPrimitivelnMicrocode], 
GOTO[noSuchPrimitivelnMicrocode], 
GQT0[noSuchPrlmitivelnMicrocode], 
GOTOfnoSuchPrimitivelnMicrocode], 
GOTO[noSuchPrimitivelnMicrocode], 
GOTO[noSuchPrlmitivelnMicrocode], 
GOTOfnoSuchPrimitivelnMicrocode], 
G0T0[noSuchPrimitivelnMicrocode], 
GOTOfnoSuchPrimitivelnMicrocode], 
GOTOfnoSuchPrimitivelnMicrocode], 
GQT0[noSuchPrimitivelnMicrocode], 
G0T0[noSuchPrimitivelnMicrocode], 


c3, at[0, 10, bank8]; 
c3, atfl, 10, banks]; 
c3, at[2, 10, bank8]; 
c3, at[3, 10 , banks]; 
c3, at[4, 10, bank8]; 
c3, at[6, 10, bank8]; 
c3, at[6, 10, bank8]; 
c3, at[7, 10, bank8]; 
c3, at[8, 10, bank8]; 
c3, at[9, 10, bank8]; 
c3, at[0a, 10 , banks]; 
c3, at[0b, 10, bank8]; 
c3, at[0c, 10, bank8]; 
c3, at[0d, 10, bank8]; 
c3, at[0e, 10, bank8]; 
c3, at[0f, 10, bank8]; 


G0T0[noSuchPrimitivelnMicrocode], 
GOTO[noSuchPrimitivelnMicrocode], 
G0T0[noSuchPrimitivelnMicrocode], 
G0T0[noSuchPrlmitivelnMicrocode], 
G0T0[noSuchPrlmitivelnMicrocode], 
G0T0[noSuchPrimitivelnMicrocode], 
GOTO[noSuchPrimltivelnM1crocode], 
G0T0[noSuchPrimit1velnMicrocode], 
G0T0[noSuchPrimitiveinMicrocode], 
G0T0[noSuchPrimitivelnMicrocode], 
G0T0[noSuchPrimitivelnMicrocode], 
G0T0[noSuchPrimitivelnMicrocode], 
G0TO[noSuchPrimitivelnMicrocode], 
G0T0[noSuchPrimitivelnMicrocode], 
GOTO[noSuchPrimitivelnMicrocode], 
GOTO[noSuchPrimitivelnMicrocode], 


c3, at[0, 
c3, at[l, 
c3, at,[2, 
t[3, 
"4, 


c3, 


c3, at 
c3, at 
c3, at 
c3, at 
c3, at 
c3, at 


c3, 
c3, 
c3, 
c3, 
c3, 
c3, 


at[0c, 
at[0d, 
at[0e, 
at[0f, 


10, bank9] 
10, bankQ] 
10, bank9] 
10, bank9] 
10, bank9] 
10, bank9] 
10, bank9] 
10, bank9] 
10, bank9] 
10, bank9] 
10, bank9] 
10, bank9] 
10, bank9] 
10, bank9] 
10, bank9] 
10, bank9] 


G0T0[noSuchPrimitivelnMicrocode], 
G0T0[noSuchPrimitivelnMic rocode], 
G0T0[noSuchP rimit1velnMic rocode], 
G0T0[noSuchP rimitivelnMicrocode], 
GOTO[noSuchPrimitivelnMicrocode], 
G0T0[noSuchPrimitivelnMicrocode], 
G0T0[noSuchPrimitivelnMicrocode], 
G0T0[noSuchPrimitivelnMicrocode], 
G0T0[noSuchPrimitivelnMicrocode], 
GOTO[noSuchPrimitivelnMicrocode], 
GOTO[noSuchPrimitivelnMicrocode], 
G0T0[noSuchPrimitivelnMicrocode], 
GOTO[noSuchPrimitiveInMicrocode], 
GOTO[noSuchPrimitivelnMicrocode], 
G0T0[noSuchPrimitivelnMicrocode], 
GOTO[noSuchPrimitivelnMicrocode], 


c3, at[0, 10, banka]; 
c3, at[l, 10, banka]; 
c3, at[2, 10, banka]; 
c3, at[3, 10, banka]; 
c3, at[4, 10, banka]; 
c3, at[5, 10, banka]; 
c3, at[6, 10, banka]; 
c3, at[7, 10, banka]; 
c3, at[8, 10, banka]; 
c3, at[9, 10, banka]; 
c3, at[0a, 10, banka]; 
c3, at[0b, 10, banka]; 
c3, at[0c, 10, banka]; 
c3, at[0d, 10, banka]; 
c3, at[0e, 10, banka]; 
c3, at[0f, 10, banka]; 


GOTO[noSuchPrimitivelnMicrocode], 
G0T0[noSuchPrimitivelnMicrocode], 
G0T0[noSuchPrimitivelnMicrocode], 
G0T0[noSuchPrimitivelnMicrocode], 
G0T0[noSuchPrimitivelnMicrocode], 
GOTO[noSuchPrimitivelnMicrocode], 
G0T0[noSuchPrimitivelnMicrocode], 


c3, at[0, 10, bankb] 
c3, at[l, 10, bankb] 
c3, at[2, 10, bankb] 
c3, at[3, 10, bankb] 
c3, at[4, 10, bankb] 
c3, at[5, 10, bankb] 
c3, at[6, 10, bankb] 
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G0T0[noSuchPrim1tIvelnMicrocode], 
G0T0[noSuchPrimlt1velnMIcrocode], 
G0T0[noSuchPrimitIvelnMicrocode], 
G0T0[noSuchP rimltIvelnMicrocode], 
G0T0[noSuchPrim1t1velnMIcrocode], 
G0T0[noSuchPrimitivelnMicrocode], 
G0T0[noSuchPrimitivelnMIcrocode], 
GOTO[noSuchPrimitivelnMicrocode], 
GOTO[noSuchPrimit1velnM1c rocode], 


c3, at[7, 10, bankb]; 
c3, at[8, 10, bankb]; 
c3, at[9, 10, binkb]; 
c3, at[0a, 10, bankbj; 
c3, at[0b, 10, pankbj; 
c3, at[0c, 10, pankb]; 
c3, at[0d, 10, pankb]; 
c3, at[0e, 10, bankb]; 
c3, at[0f, 10, pankb]; 


G0T0[noSuchPrimltIvelnMicrocode], 
G0T0[noSuchPrimit1velnMIcrocode], 
GOTO[noSuchPrimitivelnMIcrocode], 
GOTO[noSuchP rimltivelnMIcrocode], 
G0T0[noSuchPrimitivelnMIcrocode], 
G0T0[noSuchPrimitivelnMicrocode], 
GOT0[noSuchP rimltiveInMicrocode], 
GOTO[noSuchPrimit1velnMIcrocode], 
GOTO[noSuchPrimitivelnMicrocode], 
GOTO[noSuchP rim itIvelnMicrocode], 
GOTO[noSuchPrimitivelnMicrocode], 
GOTQ[noSuchP rimItivelnMIcrocode], 
GOTO[noSuchPrimitivelnMicrocode], 
G0T0[noSuchPrimitivelnMIcrocode], 
G0T0[noSuchPrimltIvelnMicrocode], 
G0T0[noSuchPrimitivelnMIcrocode], 


c3, at[0. 


c3, at 
c3, at 
c3, at 
c3, at 
c3, at 
c3, at 
c3, at 
c3, at 
c3, at[9, 
c3, at[0a, 
c3, at[0b, 
c3, at[0c, 
c3, at[0d, 
c3, at[0e, 
c3, at[0f, 


10, bankc]; 
10, bjjnkc]; 
10, binkc]; 
10, b^nkc]; 
10 , bankc]; 
10, b^nkc]; 
10, bankc]; 
10 , bankc]; 

10, biinkc]; 
10, bknkc]; 
10, bankc]; 
10, panke]; 
10 , bankc]; 
10, pankc]; 
10 , bankc]; 
10, pankc]; 


GOTO[noSuchPrim1tivelnMIcrocode], 
G0T0[noSuchPrimItIvelnMicrocode], 
GOTO[noSuchPrimitIvelnMicrocode], 
GOTO[noSuchPrimitIvelnMicrocode], 
GOTO[noSuchPrimitivelnMIcrocode], 
G0T0[noSuchPrimit1velnMIcrocode], 
GOTO[noSuchPrimltivelnMIcrocode], 
GOTO[noSuchPrimitivelnMIcrocode], 
GOTO) noSuchPrimitivelnMIcrocode], 
G0TO[noSuchPrimitIvelnMicrocode], 
GOTO[noSuchPrimlt1velnMIcrocode], 
G0T0[noSuchPrimitIvelnMicrocode], 
GOTO[noSuchPrimitivelnMicrocode], 
GOTO noSuchP rimitIvelnMicrocode], 
GOTO[noSuchPrimitivelnMIcrocode], 
G0T0[no$uchPrimit1veinMicrocode], 


c3, at[0, 10, bankd]; 
c3, at[l, 10, bankd]; 
c3, at[2, 10, bPnkd]; 
c3, at[3, 10, binkd]; 
c3, at[4, 10, bankd]; 
c3, at[6, 10 , bankd]; 
c3, at[6, 10, bknkd]; 
c3, at[7, 10, bknkd]; 
c3, at[8, 10, bankd]; 
c3, at[9, 10, bankd]; 
c3, at[0a, 10, bankdj 
c3, at[0b, 10, pankd] 
c3, at[0c, 10, pankd] 
c3, at[0d, 10, pankd] 
c3, at[0e, 10, pankd] 
c3, at[0f, 10, bankd] 


G0TO[noSuchPrimitivelnMIcrocode], 
GOTO[noSuchPrimitivelnMIcrocode], 
GOTO[noSuchPrimltivelnMicrocode], 
GOTO[noSuchPrimltIvelnMicrocode], 
G0T0[noSuchPrimitivelnMIcrocode], 
G0T0[noSuchPrimitivelnMicrocode], 
G0T0[noSuchPrimitivelnMicrocode], 
G0T0[noSuchPrimitivelnMIcrocode], 
G0TO[noSuchPrim1tivelnMIcrocode], 
G0T0[noSuchPrimitIvelnMicrocode], 
GOTO[noSuchPrimitivelnMicrocode], 
GOTO[noSuchP rim it 1velnMIcrocode], 
G0T0[noSuchPrimit1velnMicrocode], 
GOTO[noSuchPrimitIvelnMicrocode], 
G0T0[noSuchPrimit1veInMicrocode], 
G0T0[noSuchPrimitivelnMIcrocode], 


c3, at[0, 
c3, at[l, 
c3, at[2, 
c3, at[3, 
c3, at[4, 
c3, at[6, 
c3, at[6, 
c3, at[7, 


c3, at 
c3, at 
c3, at 
c3, at 
c3, at 
c3, at 
c3, at 


c3, at[0f, 


10 , banke] 
10, banke] 
10 , banke] 
10, b^nke“ 
10, banke 
10 , banke 
10, banke 
10, banke 
10, banke 
10, binke] 
10, panke] 
10, panke] 
10, banke] 
10, banke] 
10, banke] 
10, panke] 


GOT0[noSuchPrimltIvelnMicrocode], 
GOTO[noSuchPrimlt1velnMicrocode], 
G0T0[noSuchPrimltIvelnMicrocode], 
G0T0[noSuchPrimitivelnMIcrocode], 
GOTO[noSuchPrimitivelnMicrocode], 
GOTO[noSuchPrimitivelnMIcrocode], 
GOTO[noSuchPrimitIvelnMicrocode], 
GOTO[noSuchPrim itIvelnMicrocode], 
G0T0[noSuchPrimltIvelnMicrocode], 
G0T0[noSuchPrimitivelnMic rocode], 
GOT0[noSuchP r1m itIvelnMicrocode], 
GOTO[noSuchP rimltivelnMIcrocode], 
GOTO[noSuchPrimltIvelnMic rocode], 
GOTO[noSuchPrimltivelnMIcrocode], 
G0T0[noSuchPrimitivelnMicrocode], 
GOTO[noSuchPrimitivelnMIcrocode], 


c3, at[0, 10, bankf]; 
c3, at[l, 10, bankf]; 
c3, at[ 2 , 10 , bankf]; 
c3, at[3, 10 , bankf]; 
c3, at[4, .10, bankf]; 
c3, at[6, 10, bankf]; 
c3, at[6, 10, bknkf]; 
c3, at[7, 10, bankf]; 
c3, at[8, 10, b^nkf]; 
c3, at[9, 10, bankf]; 
c3, at[0a, 10, pankf] 
c3, at[0b, 10, pankf] 
c3, at[0c, 10, bankf] 
c3, at[0d, 10, bankf] 
c3, at[0e, 10, pankf] 
c3, at[0f, 10, pankf] 


noSuchPrimitivelnMIcrocode: 

{see If molasses implements this primitive} 

templHigh ■<- uRumRecordHIgh, . c j. 

templLow *- uRumRecordLow, C 2 ’ 

temp2Low <- uPrlmitiveNumber, C 3 | 

{get the address of the primitive map} 

MAR «- [templHigh, templLow + primltiveMapLowOffset], cl* 

CANCELBR[$, 2], c2 \ 

temp3Low MD, c 3 ! 
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MAR «■ [templHIgh, templLow + prlmltlveMapMIghOffset], cl; 

temp3Low * temp3Low + temp2Low {add In primitive number), CANCELSR[$, 2], e2; 
temp3H1gh <- MD, C 3 ; 

{read primitive map entry) 

MAR 4- [temp3H1gh, temp3Low + 0), C l; 

Noop, c2; 

templLow <- MD, c 3 ; 

[] * templLow, ZeroBr, C l; 

BRANCH[molassesDoesImp1ement, molassesDoesNotlmplement] c 2 ; 

mo1 assesDoesNot Implament: 

G0T0[act1vateNewMethod), c3; 

mo lassesDoesImplement: 

Noop, e3; 

G0T0[bytBcodeFa11ed], C l; 


fixedFleldsOf: 

{upon entry, otLow must be the oop of the class, at exit, temp2Low contains the number of fixed fields, and temp3Low 
contains the InstanceSpec. L2 is the linkage register, sets templHIgh/Low to be the base of the class, smashes LI) 


{build mask for extracting the fixed size of the object f 

temp2Low «- Of, LI <- InstanceSpec, 

temp2Low <- temp2Low LRot8, 

temp2Low <- temp2Low or Off, CALL[otMap2], 

templLow 4 templLow + InstanceSpecIflcatlonFleldOffset, 
Noop, 

Noop, 

MAR 4 [templHIgh, templLow + 0], 

templLow *- templLow - InstanceSpecIfIcatlonFleldOffset, 
temp3Low 4 MD {the InstanceSpec), L2D1sp, 


Instance spec) 

cl; 
c2; 
c3; 

cl, at[1nstanceSpec, 10, otMap2-return); 
c2; 
c3; 

cl; 
c2; 
c3; 


temp2Low 4 RShlftl (temp3Low and temp2Low), SE 4 0 , {yields fixed size), RET[f1xedF1elds0f-return], cl; 


P0Slt1vel6B1tValue0f: 

{todo — need to fall primitive If smalllnt and negat1ve--watch out for the 12) 

{upon entry, temp3Low is the oop or Smalllnteger. There is a pending XDIsp to test for Small Integers. temp3H1gh Is the 
return linkage register, smashes otLow, temp3Low and templHigh/Low, and may smash L2. result returned In Q) 

{use pending dispatch to see If Smalllnteger or whether furthur work Is needed) 

tempSLow 4 RShlftl temp3Low, SE 4 0 , BRANCH[posl8NotSmall, poslBIsSmall, Oe], cl; 


poslBIsSmall: 

{just turn It into a useful number and return) 

Ybus 4 temp3H1gh, XDisp, GOTO[returnFromPos1tivel6B1tValueOf), c2; 

posl 6 NotSmall: 

0 4 classLargePosItivelntegerPoInter, L2 4 posl6B1t, C2; 

otLow 4 LShlftl temp3Low, CALL[getClass], c3; 


[] 4 tempSLow xor Q, ZeroBr {Is class LargePosItlvelnteger?), cl, at[posl6B1t, 10, getClass-return); 

BRANCH[posl6Fai1a, $], C2; 


templLow 4 templLow 4 sIzeFleldOffset, c3; 

MAR 4 [templHIgh, templLow + 0], cl; 

0 4 sizeOfLargelntegerForPosItlvelBBItValueOf, c 2 ; 

temp3Low 4 MD {size of this object), c3; 

[] 4 temp3Low - 0, ZeroBr, cl; 

templLow 4 templLow - sIzeFleldOffset, BRANCH[posl6Fa11b, $], c2; 

templLow 4 templLow + flrstFleldOfObject, c3; 

MAR 4 [templHIgh, templLow + 0], cl; 

Noop, c2; 

temp3Low 4 MD, c3; 
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temp3Low «- temp3Low LRot8, 
Ybus *■ t,emp3H1gh, XDIsp, 


returnFromPos1t1vel6B1tVa1ue0f: 

0 temp3Low, ZeroBr, RET[pos1t1vel6B1tValue0f-return], 


posl6Fa11a: 

GQT0[act1vateNewMethod], 

posl6Fa11b: 

G0T0[activateNewMethod], 
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bytecodes: 


{Push Receiver Variable bytecodes} 


pushRecelverVarlableO: 


temp3Low fleldO, 

G0T0[pushRece1verVar1able], 

cl, bytecode[0]; 

pushRecelverVarlublel: 

temp3Low «- f leldl, 

G0T0[pushReceiverVarlable], 

cl, bytecode[l}: 

pushRocel verVar1fible2: 

temp3Low <- f1eld2. 

G0T0[pushRece1verVar1able], 

cl, bytecode[2]; 

pushRece1verVar1sble3: 

temp3Low f1eld3, 

GOTO[pushReceiverVarlable]. 

cl, bytecode[3]; 

pushReceiverVar1able4: 

temp3Low «- f1eld4, 

G0T0[pushRece1verVar1able], 

cl, bytecode{4]; 

pushReceiverVariableS: 

temp3Low *■ fields, 

GOTO[pushReceiverVarlable], 

cl, bytecode[6]; 

pushReceiverVar1able6: 

temp3Low *■ fields* 

G0T0[pushRece1verVar1able], 

cl, bytecode[6]; 

pushReceiverVa r1able7: 

temp3Low *• f1eld7, 

G0T0[pushRecelverVarlable], 

cl, bytecode[7]; 

pu$hR«ce1verVar1able8: 

temp3Low «■ f1eld8, 

G0T0[pushRece1verVarlable], 

cl, bytecode[8}: 

pushRecelverVarlable*): 

temp3Low *- field*). 

GOTO[pushReceiverVarlable], 

cl, bytecode[9]; 

pushRecelverVarlable 10 : 

temp3Low «- fleldlO, 

G0T0[pushRecelverVarlable], 

cl, bytecode[0a]; 

pushRecelverVarlablell: 

temp3Low +• fieldll, 

G0T0[pushRece1verVar1able]. 

cl, bytecode[0b}; 

pushRece1verVariablel2: 

temp3Low <- f1eldl2, 

G0T0[pushReceiverVarlable], 

cl, bytecode[0c]; 

pushRecelverVarlable13: 

temp3Low <• fieldl3, 

G0T0[pushReceiverVarlable], 

cl, bytecode[0d]; 

pushReceiverVarlable14: 

temp3Low ■ «* f1eldl4. 

G0T0[pushReceiverVarlable], 

cl, bytecode[0e]; 

pushReceiverVarlablelS: 

temp3Low «* fieldlS, 

G0T0[pushReceiverVarlable], 

cl, bytecode[0f]; 


pushRecelverVarlable: 

{upon entry, temp3Low must Indicate the receiver field to be pushed, 
the receiver has no lambdas, we need not check for them.} 
temp2Low *■ uRecelverLow, 

temp2H1gh «• uRecelverHIgh, temp2Low <- temp3Low + temp2Low, 


Including the size of the object header. 

c2; 
c3; 


MAR «- [temp2H1gh, temp2Low + 0] {read the reclever's field}, 
stackLow <- stackLow +1, 

temp3Low * MD, G0T0[pushTemp3LowAndD1spatchj, • 


{Push Temporary Location bytecodes} 


pushTemporaryLocatlonO: 

homeLow *■ homeLow + tempo, GOTO[pushTemporary], 


cl, bytecode[10}; 


1 


Since 


push.me 


l-Aug-84 18:30:17 PDT 


1 



push.me 


l-Aug-84 18:30:17 PDT 


Z 


pushTemporaryLocatlonl: 


homeLow «- homeLow + tempi, 

G0T0[pushTemporary], 

cl, bytecode[ll]; 

pushTemporaryLocat1on2: 

homeLow «- homeLow + temp2, 

G0T0[pushTemporary], 

cl, bytecode[12]; 

pushTemporaryLocat1on3: 

homeLow <- homeLow + temp3, 

GOTO[pushTemporary], 

cl, bytecode[13]; 

pushTempo raryLocat1on4: 

homeLow «- homeLow + temp4, 

G0T0[pushTemporary], 

cl, bytecode[14]; 

pushTemporaryLocatlonS: 

homeLow +■ homeLow + temps, 

G0T0[pushTemporary], 

cl, bytacode[16]; 

pushTemporaryLocat1on6: 

homeLow +■ homeLow + temp6. 

G0T0[pushTemporary], 

cl, bytecode{16]; 

pushTemporaryLocat1on7; 

homeLow homeLow + temp7, 

G0T0[pushTemporary], 

cl, bytecode[17]; 

pushlemporaryLocat1on8: 

homeLow homeLow + temp8, 

GOTO[pushTemporary], 

cl, bytecode[18}; 

pushTemporaryLocat1on9: 

homeLow <- homeLow + temp9, 

G0T0[pushTemporary], 

cl, bytecode[19]; 

pushTemporaryLocatlonlO: 

homeLow *> homeLow + templO, 

G0T0£pushTemporary}. 

cl, bytecode[la]; 

pushTemporaryLocatlonll: 

homeLow <* homeLow + tempi 1, 

G0T0[pushTemporary], 

cl, bytecode[lb]; 

pushTemporaryLocation12: 

homeLow homeLow + templ2, 

G0T0[pushTemporary]. 

cl, bytecode[lc]; 

pushTemporaryLocationl3: 

homeLow homeLow + templ3, 

GOTOfpushTemporary], 

cl, bytecode[ld]; 

pushTempo raryLocat1onl4: 

homeLow <- homeLow + templ4, 

G0T0[pushTemporary], 

cl, bytecode[le]; 

pushTemporaryLocatlonie: 

homeLow «- homeLow + templS, 

G0T0£pushTem'porary], 

cl, bytecode[lf}; 

pushTemporaryj 

Noop, 


c2; 


pushTemporaryVIaExtendedPush: 

loaded 8ntry ' h0meL °” must conta1n the low-order 16-bits of the absoulute address of the temporary field to be 
no lambda checking Is performed. At exit, homeLow Is properly restored.} 


MAR *- [homeHigh, homeLow + 0} {read the temporary}, 
stackLow stackLow + 1 , 
temp3Low *• MD, 

MAR <- [stackHigh, stackLow + 0], 

MDR «- temp3Low, NextBytecode, homeLow <- uHomeLow, 
DISPNI[bytecodes], IpLow <- IpLow + PC16, 


Since we're push 


{push Literal Constant bytecodes} 


pushLIteralConstantO: 

temp3Low * 1IteralFleldO, G0T0[pushL1teralConstant], 
pushLIteralConstantl: 

temp3Low *- 1 IteralFleldl, G0T0[pushL1teralConstant], 
pushL 1 teralConstant 2 : 

temp3Low <- 11teralF1eld2, G0T0[pushL1teralConstant], 
pushLIteralConstant3: 

temp3Low «• 11teralF1eld3, G0T0[pushL1teralConstant], 
pushL1teralConstant4: 

temp3Low «- 11teralF1eld4, G0T0[pushL1taralConstant], 
pushLIteralConstant6: 

temp3Low «- 1 iteralF1eld5, G0T0[pushL1teralConstant}, 
pushLIteralConstantO: 

temp3Low «- HteralFleldG, G0T0[pushL1teralConstant], 
pushL1teralConstant7: 

tempSLow «• 11teralF1eld7, G0T0[pushL1teralConstant], 
pushLIteralConstantS: 

temp3Low «■ 1 IteralFleld8, G0T0[pushL1teralConstant], 
pushLIteralConstantQ: 

temp3Low <- 11teralF1eld9, G0T0[pushL1teralConstant], 


cl, bytecode[20]; 
cl, bytecode[ 21 ]; 
cl, bytecode[22]; 
cl, bytecode[23]: 
cl, bytecode[24]; 
cl, bytecode[26]; 
cl, bytecode[26]; 
cl, bytecode[27]i 
cl, bytecode[28]; 
cl, bytecode[29]; 
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pushLIteralConstant10: 

temp3Low «• 1 iteralFleldlO, GOTOfpushLiteralConstant], cl, bytecode[2a]; 

pushLIteralConstentll: 

temp3Low «- 1IteralFleldll, G0T0[pushL1teralConstant], cl, bytecode[2b]; 

pushLI t e ral Const eintl2: 

temp3Low +■ literalFleldl2, G0T0[pushl1teralConstant], cl, bytecode[2c]; 

pushLiteralConst©ntl3: 

temp3Low *• 1iteralFleldl3, GOTOfpushLiteralConstant], cl, bytecode[2d]; 

pushLiteralConstantl4: 

temp3Low <- 1IteralFleldl4, GOTO[pushL1teralConstant], cl, bytecode[2e]; 

pushLIteralConstant16: 

temp3Low «- 1iteralFleldl6, GOTOfpushLiteralConstant], cl, bytecode[2f]; 

pushLiteralConstent16: 

temp3Low <- 1IteralFleldl6, G0T0[pushL1teralConstant], cl, bytecode[30]; 

pushLiteralConstant17: 

temp3Low <- 1iteralFieldl7, GOTOfpushLiteralConstant], cl, bytecode[31]; 

pushLIteralConstant18: 

temp3Low *■ 1iteralF1eldl8, G0T0[pushLiteralConstant], cl, bytecode[32]; 

pushLiteralConstant19: 

temp3Low «- 1iteralF1eldl9, GOTO[pushLiteralConstant], cl, bytecodef33]; 

pushLiteralConstant20: 

temp3Low «- 1iteralField20, GOTOfpushLiteralConstant], cl, bytecode[34]; 

pushLiteralConstant21: 

temp3Low «- 1iteralField21, GOTOfpushLiteralConstant], cl, bytecode[36]; 

pushLiteralConstant22: 

temp3Low *• 11teralF1eld22, G0T0[pushL1teralConstant], cl, bytecode[36]; 

pushL1tera!Constant23: 

temp3Low *■ 1iteralFleld23, GOTOfpushLiteralConstant], cl, bytecode[37]; 

pushLiteralConstant24: 

temp3Low «- 1iteralFleld24, GOTOfpushLiteralConstant], cl, bytecode[38]; 

pushLItera!Constant26: 

temp3Low «* 1iteralField25, GOTOfpushLiteralConstant], cl, bytecodef39]; 

pushLIteralConstant26: 

temp3Low «- 1iteralField26, GOTOfpushLiteralConstant], cl, bytecode[3a]; 

pushLiteralConstant27: 

temp3Low «• 11teralField27, GOTOfpushLiteralConstant], cl, bytecodef3b]; 

pushLiteralConstant28: 

temp3Low ♦* 11teralField28, GOTOfpushLiteralConstant], cl, bytecodef3c]; 

pushLIteralConstant29: 

temp3Low <- 1iteralFleld29, GOTOfpushLiteralConstant], cl, bytecode[3d]; 

pushLiteralConstant30: 

temp3Low «- 1iteralF1eld30, GOTOfpushLiteralConstant], cl, bytecodef3e]; 

pushLiteralConstant31: 

temp3Low <- 1IteralF1eld31, GOTOfpushLiteralConstant], cl, bytecodef3f]; 


pushLiteralConstant: 

{upon entry, temp3Low must be the offset to the literal constant, including the object header and 1iteralStart. 
the current method has no lambdas, we need not check for them.} 

temp2Low «■ uCurrentMethodLow, {get the address of the current method} c2; 

temp2H1gh «- uCurrentMethodHigh, temp2Low temp3Low + temp2Low, (and add in offset to appropriate literal} c3; 

MAR «- ftemp2High, temp2Low + 0], {read the literal oop} cl; 

stackLow «- stackLow + 1, c2; 

temp3Low «- MD,G0T0fpushTemp3LowAndDispatch], c3; 


{Push Literal Variable bytecodes} 


pushLiteralVarlableO: 

temp3Low «- 1iteralFieldO, backupIsOBytes, GOTOfpushLiteralVariable], cl, bytecodef40]; 
pushLiteralVarlablel: 

temp3Low «- 1IteralFieldl, backupIsOBytes, GOTOfpushLiteralVariable], cl, bytecodef41]; 


pushLIteralVariable2: 

temp3Low «■ 1IteralF1eld2, backupIsOBytes, GOTOfpushLIteralVariable] , cl, bytecodef42]; 


Since 
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pushL1teralVar1able3: 

temp3Low «• 11tera1F1eld3, backupIsOBytes, G0T0[pushL1teralVar1able], cl, bytecode[43]; 
pushL1tera!Variable4: 

tempSLow + 1IteralField4, backupIsOBytes, G0T0[pushL1teralVarlable], cl, bytecode[44]; 
pushLiteralVariables: 

temp3Low 1IteralField5, backupIsOBytes, G0T0[pushL1teralVariable], cl, bytecode[45]; 
pushLiteralVariableS: 

temp3Low «- 1IteralFieldS, backupIsOBytes, G0T0[pushL1teralVariable], cl, bytecode[46]; 
pushLiteralVariable?: 

temp3Low «■ 11teralF1eld7, backupIsOBytes, G0T0[pushL1teralVar1able], cl, bytecode[47]; 
pushLIteral Variables*. 

temp3Low <- 1IteralFleld8, backupIsOBytes, G0T0[pushL1teralVariable], cl, bytecode[48]; 
pushL1teralVar1able9: 

temp3Low *• 1IteralFiel d9, backupIsOBytes, G0T0[pushL1teralVar1able], cl, bytecode[49]; 
pushLiteralVarlablelO; 

temp3Low <- UteralFleldlO, backupIsOBytes, G0T0[pushL1teralVar1able], cl, bytecode[4a]; 
pushLIteralVariablell: 

temp3Low *• 1IteralFleldll, backupIsOBytes, G0T0[pushL1teralVariable], cl, bytecode[4b]; 
pushL1teralVar1ablel2: 

temp3Low 11teralFieldl2, backupIsOBytes, G0T0[pushL1teralVar1able], cl, bytecode[4c]; 
pushL1teralVariablel3: 

temp3Low «- 1IteralFieldl3, backupIsOBytes, G0T0[pushL1teralVariable], cl, bytecode[4d]; 
pushL1teralVariablel4: 

temp3Low «* 1IteralFieldl4, backupIsOBytes, G0T0[pushL1teralVariable], cl, bytecode[4e]; 
pushL1teralVar1ablel6: 

temp3Low «- UteralFleldlO, backupIsOBytes, GOTO[pushLiteralVariable], cl, bytecode[4f]; 
pushLIteralVarlablelB: 

temp3Low <- 1IteralFleldl6, backupIsOBytes, G0T0[pushL1teralVar1able], cl, bytecode[60]; 
pushL1tera!Var1ablel7: 

temp3Low <- 1IteralFleldl7, backupIsOBytes, G0T0[pushL1teralVar1able], cl, bytecode[51]; 
pushLIteralVarlablelS: 

temp3Low «* 1IteralFieldl8, backupIsOBytes, GOTO[pushLiteralVar1able], cl, bytecode[52]; 
pushLIteralVarlablelS: 

temp3Low «- 1IteralFleldl9, backupIsOBytes, GOTO[pushL1teralVariable], cl, bytecode[63]; 
pushLiteralVar1able20: 

temp3Low *- 11teralF1eld20, backupIsOBytes, G0T0[pushLiteralVar1able], cl, bytecode[54]; 
pushLiteralVar1able21: 

temp3Low «- 1IteralFleld21, backupIsOBytes, G0T0[pushL1teralVariable], cl, bytecode[66]; 
pushL1tera!Var1able22: 

temp3Low *- 1IteralFleld22, backupIsOBytes, GOTO[pushL1teralVariable], cl, bytecode[56]; 
pushLiteralVar1able23: 

temp3Low *■ 1IteralField23, backupIsOBytes, G0T0[pushL1teralVar1able], cl, bytecode[57]; 
pushL IteralVar1able24: 

temp3Low *- 1IteralField24, backupIsOBytes, G0T0[pushL1teralVariable], cl, bytecode[68]; 
pushL iteralVariable26: 

temp3Low 1 Iteral Flel d26 , backupIsOBytes, G0T0[pushL1teral Variable], cl, bytecode[69]; 
pushL1tera!Var1able26: 

temp3Low +• 1iteralFleld26, backupIsOBytes, GOTO[pushLiteralVariable], cl, bytecode[5a]; 
pushLI teralVar1able27: 

temp3Low 11teralF1eld27, backupIsOBytes, G0T0[pushL1teralVariable], cl, bytecode[6b]; 
pushL iteralVariable28: 

temp3Low +■ 11teralField28, backupIsOBytes, GOTOfpushLiteralVariable], cl, bytecode[6c]; 
pushLIteralVar1able29: 

temp3Low +■ 11teralField29, backupIsOBytes, G0T0[pushL1teralVariable], cl, bytecode[5d]; 
pushLIteralVar1able30: 

temp3Low *• 1IteralF1eld30, backupIsOBytes, G0T0[pushL1teralVar1able], cl, bytecode[6e]; 
pushL1teralVar1able3l: 

temp3Low *■ 1iteralField31, backupIsOBytes, GOTO[pushLiteralVariable], cl, bytecode[6f]; 


pushLIteralVarlable: 

{upon entry, temp3Low must be the offset to the oop of the association, Including the object header and 11teralStart. 
Since the current method contains no lambdas, we do not check for them. However, the association might have a lambda 
in it, so we do check after it Is fetched} 
temp2Low «- uCurrentMethodLow, {get the address of the current method} c2; 

temp2H1gh uCurrentMethodHigh, temp2Low +■ temp3Low + temp2Low, {and add in offset to the appropriate association} c3; 
MAR *- [temp2H1gh, temp2Low + 0], {read the association oop} cl; 
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LI «■ pushlngLIteralVarlable, 

otLow * MD, CALL[otMap] {otMap the association}, 


tempi Low <- templLow + assoclatlonValuelnde* {add 
Noop, 

Noop, 


In offset to ualue}, cl, at[push1ngL1tera1Var1ab1e. 
c2; 
c3; 


MAR <- [templHIgh, templLow + 0}, C l- 
noop, c2 : 
temp3Low <- MD {get the value of the association}, c3; 

[] *- temp3Low, ZeroBr, {test for lambda} cl; 
BRANCH[valueIsNotLambda-pushLlteralVariable, valuelsLambda-pushLIteralVariable], 


valuelsNotLambda-pushLIteralVariable: 

stackLow *- stackLow + 1 {not a lambda, ok to push}, G0T0[pushTemp3LowAndD1spatch], c3; 


10, otMap-return]; 


valuelsLambda-pushLIteral Variable: 

G0T0[ba11outl], 

{Loom; need to call loom to map association lambda} 


{Push (Receiver, true, false, nil, -1, 0, 1, 2)} 


pushRecelver: 

temp3Low <- uRecelverOop, GOTO[pushConstantOop], cl, bytecode[70]; 

pushTrue: 

tempSLow <- truePoInter, GOTO[pushConstantOop], cl, bytecode[71]; 

pushFalse: 

temp3Low <- falsePoInter, GOTO[pushConstantOop], cl, bytecode[72]; 

pushNIl: 

temp3Low *• nllPoInter, GOTO[pushConstant'Oop], cl, bytecode[73]; 

pushMInusOne: 

temp3Low <- -temp3Low xor temp3Low, GOTO[pushConstantOop], cl, bytecode[74]; 

pushZero: 

temp3Low «- zeroPoInter, GOTO[pushConstantOop], cl, bytecode[76]; 

pushOne: 

temp3Low *- onePoInter, GOTO[pushConstantOop], cl, bytecode[7B]; 

pushTwo: 

temp3Low *■ twoPoInter, GOTOfpushConstantOop], cl, bytecode[77]; 

pushConstantOop: 

Noop, c 2; 

stackLow » stackLow + 1 , G0T0[pushTemp3LowAndD1spatch], c3; 


{Extended Push (Receiver Variable, Temporary Location, Literal Constant, Literal Variable)} 


extendedPush: 

temp2Low 1b {get the extension byte}, cl, bytecode[80]- 

temp3Low temp2Low and 3f, {and save only the offset} c2; 

temp3Low *■ temp3Low + objectHeaderSIze, {and bump to the object body} c3; 


{todo — 


temp2Low * RShlftl tempZLow, {shift for convlenlent dispatch} cl; 

[] <- temp2Low LRotO, XwdDisp, {dispatch on the type of extended push} c2; 

DISP2[extendedPushTarget], ipLow «- ipLow + PC16, {account for the extension byte, and take off} c3* 
when It runs faster, check out that pushExtendedTemp/LltConst/LItVar work!} 

G0T0[pushRece1verVar1able], a, a t[0, 4, extendedPushTarget]; 


temp3Lpw «- temp3Low + tempF rameStart, 

homeLow homeLow + temp3Low, G0T0[pushTemporaryV1aExtendedPush] v 


cl, at[l, 4, extendedPushTarget]; 

C2; 


temp3Low «- temp3Low + 1IteralStart, GOTOtpushLiteralConstant], 


cl, at[2. 


4, extendedPushTarget]; 


backupIslByte {in case a lambda Is found}, 
Noop, 

Noop, 


cl, at[3, 4, extendedPushTarget]; 
c2 ; 
c3 ; 


temp3Low temp3Low + 1IteralStart, G0T0[pushL1teralVar1able], cl; 
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{Duplicate Stack Top} 

dupl1cateStackTop: 

s?a R ckJr! C s^kuf“T" + 0] {St8rt rBad ° f St<,CkT0, »’ «*; bytecodaCSS]: 

tempSLow *■ MD, G0T0[pushTemp3LowAndD1spatch], £ 3 ! 


{Push Active Context.} 
pushActlveContext: 

0 <- uRumRecordHIgh {retrelve the Rum Record address}, cl bvtecodsrnni 

temp2H1gh <- 0 LRotO, 1 D y tecoae L 8 ®] 

temp2Low *- uRumRecordLow, 

MAR «- [temp2H1gh, temp 2 Low + leafContextOopOffset], cl; 

CANCELBR[$, 2]• «| 

templLow *- MD {oop of the leafContext}, C 3 ,’ 


otLow <- uActIveContextOop, LI «- pushlngActlveContext, cl- 

[] <- templLow - otLow, ZeroBr, 

BRAMCH[1eafContextIsNotActIveContext, leafContextIsActlveContext], c3; 
leafContextlsActlveContext: 

MAR <- [temp2H1gh, temp2Low + leafContextOopOffset}, cl • 

MDR nilPoInter, CANC£LBR[$, 2], LOOPHOLEfwok], c2 | 

[} <- otLow LRotO, XDIsp {not really necessary--1t better be an oop}, CALL[refd], c3; 

leafContextlsNotActlveContext: 
temp3Low *■ otLow, 
stackLow <- stackLow + 1, 

G0T0[pushTemp3LowAndD1spatch}, 


cl, at[push1ngAct1veContext, 10, refdReturn] 

c 2 ; 

c3; 
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{Refill and Trap microcode for the Smalltalk Virtual Machine 
Introduction to the Refill microcode: 


As each Smalltalk bytecode Implementation nears completion, an IBDisp Is executed 
roi lowing table: 


The action that then occurs Is summarized In the 



Mesa Interrupt Pending 

No Mesa Interrupt Pending 

IB state 



full 

trap to location 600 

branch to next macroinstruction Interprets 

empty 

trap to location 600 

trap to location 400 

not empty 

trap to location 700 

trap to location 600 



I. h Lir?! r .L h ?“ 1<, ... no ! e .? at ..*• “"conditionally refill the Instruction Buffer, even If the subsequent bytes are not needed. 




the Object Space unavailable for 


} 


MacroDef[AlwaysIBDisp, (IBDisp, IBPtr - 1 )] {same definition as In Mesa.df}; 


stEmpty: 

{ when we arrive here, the buffer Is empty, 
MAR [ipHIgh, 1pLow+0], 
ipLow «■ IpLow + 1, 

IB «- MD, GOTO[nextWord-stNotEmpty], 


and the ip Is pointing at the word to be fetched} 
Cl, at[400]; 
c2; 

c3,; 


stNotEmpty: 

{ when we arrive here, the buffer is not empty, and the 
ipLow IpLow + 1, 

Ybus <- uTImeToStabll ize, ZeroBr, 

BRANCH[stabilizeNow, nextWord-stNotEmpty], 

stabilIzeNow: 

LO <- uCodeRequestedStabll Ization, 

Noop, 

CALL[stab11ize], 

otLow «- uActiveContextOop, 

stabilize-return]; 

temp3Low <- act iveAfterStabil Ize, 

Noop, 

uMakeVolatlleLinkage *- temp3Low, CALL[makeVolatile], 

temp2High <- uRumRecordHigh, 
makeVolat lie-return]; 
temp2Low *- uRumRecordLow, 

Noop, 

MAR «- [temp2H1gh, temp2Low + homeContextOopOffset], 


Ip Is one word short of pointing at the word to be fetched} 
cl, at[600]; 

c2; 
c3; 


cl; 

C2; 

c3; 

cl, at[uCodeRequestedStabilIzation, 10 , 

c2; 
c3; 

cl; 

cl, at[act1veAfterStabilIze, 10 , 

c2; 
c3; 

Cl; 
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temp3Low «- homeAfterStabilize, CANCELBR[$, 2], c2; 

otLow *■ MD, c3; 

uMakeVolatileLInkage <- temp3Low, CALL[makeVolat11e], cl; 


temp2High «- uRumRecordHigh, 
makeVolatlle-return]; 
temp2Low «- uRumRecordLow, 
Noop, 


cl, at[homeAfterStabilize, 10, 

c2; 

c3; 


MAR *■ [temp2High, temp2Low + leafContextOopOffset], cl; 
temp3Low <- leafAfterStabllize, CANCELBR[$, 2], c2; 
otLow *■ MD, c3; 


uMakeVolatlleLInkage «- temp3Low, CALL[makeVolatno], cl; 

MAR <- [ipHIgh, 1pLow+0], G0T0[nextWord-stNotEmpty-c2], cl, at[leafAfterStabilize, 10, 

makeVolat lie-return]; 


nextWord-stNotEmpty: 

MAR «- [IpHIgh, ipLow+0], 


cl; 


nextWord-stNotEmpty-c2: 

IpLow *■ IpLow - 1, {adjust to point at the proper word}, AlwaysIBDIsp, L3 «• 0, c2; 
IB «- MD, DISPNI[bytecodes], c3; 


stEmpty0rFul1AndMesaInterrupt: 
GOTO[mesaInterrupt], 

stNotEmptyAndMesaInterrupt: 

Noop, 

mesalriterrupt: 

Noop, 

templLow «- 0 (mark Mesa interrupt}, 


cl, at[600]; 

cl, at[700]; 
c2; 

GOTO[saveSmalltalkState], c3; 


{ 

Introduction to the Trap microcode: 

Certain conditions (Control Store parity errors, emulator memory errors, Mesa stackPointer overflow or underflow, and IB-empty errors) 
cause traps to location 0. Currently we just hang for any of these errors; future Implementations probably want to take a more official 
action. The IB-empty error is useful in the Mesa emulator (where It is utilized to detect and handle page crossings), but in Smalltalk 
land it means that a coding error has been made and too many bytes have been fetched from the Instruction Buffer. 


> 

FatalError: 

0 «- ErrnlBnStkp, 
FatalErrorSpin: 

G0T0[bailout3], 


cl, at[0]; 
c2; 
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{ 
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{Return (Receiver, true, false, nil)} 


returnReceiver: 

temp3Low <- uReceiverOop, GOTOfETPhoneHome], 
returnTrue: 

temp3Low <- truePointer, GOTO[ETPhoneHome], 
returnFalse: 

temp3Low *■ falsePointer, GOTO[ETPhoneHome]|, 
returnNil: 

temp3Low <- n11Pointer,G0T0[ETPhoneHome] 


cl, bytecode[78}; 


cl, byteeode[79]; 
cl, bytecode[7a];, 
cl, bytecode[7b]; 


{Return Stack Top From (Message, Block)} 


returnStackTopFromMessage: 

MAR «- [stackHlgb, stackLow + 0], 
MDR *- nilPoInter, 
temp3Low * MO, 


cl, bytecode[7c}; 

c2; 

c3; 


stackLow <- stackLow - 1 , 


cl; 


ETPhoneHome: 

{set up temp2 so that we can get the sender oop from the home context} 
0 e homeHigh, backupIsOBytes, 
temp2H1gh <- Q LRotO, 

temp2Low *- homeLow, G0T0[getSender} 


returnStackTopFromBlock: 

MDR I nilPoInter St8CkLoW + 0] ' ba ckupIsOBytes, cl, bytecode[7d]; 

temp3Low «- MD, c3* 

stackLow <*- stackLow - 1, cl . 

{set up temp2 so that we can get the sender oop from the active context! 
temp2H1gh «- uActlveContextHIgh, c2 . 

temp 2 Low <- uActIveContextLow, c3 ! 

Noop, .. 


getSender: 

temp2Low «- temp2Low + senderFieldOffset, 
uRet urn Value *■ temp3Low, 


c2; 
c3; 


MAR <- [temp2H1gh, temp2Low + 0], LI <- getSenderBase, cl- 

temp3H1gh <- uRumRecordHIgh, c2 .* 

otLow - MD {oop of sender}, CALL[otMap2] {to get the base of the sender context}, c3; 


returnValue: 

{upon entry otLow Is 
the return value} 


the oop of the context to return to, templHigh/Low point at its 


objectHeader, 


and uReturnValue is 


{if the sender oop is nil, we cannot return} 

[] «• otLow xor nllPointer, ZeroBr, 

templLow <- templLow + instructlonPointerFieldOffset, 

Noop, 


cl, at[getSenderBase, 
BRANCH[$, cannotReturn], c2; 

c3; 


10, otMap2-return}: 


MAR <- [templHIgh, templLow + 0] {read Instruction pointer}, 
temp3Low ' uRumRecordLow, 

0 <- MD {instruction pointer of context to return to}, 

{if the instruction pointer is nil, also cannot return} 

[] <- 0 xor nilPoInter, ZeroBr, 

tempZLow uActiveContextLow, BRANCH[$, cannotReturnB} 


returnToSenderContext: 

{ok we can return, save return contexts base address, then up reference count of 
actlveContext is leaf, or If returning from block, or non-leaf return} 


target context and see If 


0 templHIgh, 

ipH 1 gh <- 0 LRotO, 

IpLow <- templLow, 

homeLow «■ otLow, 

{get the oop of the leaf} 
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MAR <- [temp3H1gh, temp3Low + TeafContextOopOffset], cl- 

temp2Low *■ temp2Low + senderFleldOffset. CANCELBR[$, 2], c2- 

temp3Low MD {leaf oop}, c 3 .' 

{and see If active context Is the leaf} 

[] - uActlveContextOop xor temp3Low, ZeroBr, cl: 

temp2H1gh *- uActlveContextHIgh, BRANCH[not.Return1ngFromLeaf, returningFromLeaf], c2; 

{by the way, the above assignment to temp2H1gh provides the first time that temp2 Is guaranteed to be pointing at the 
active context} 

returningFromLeaf: 


{If actlveContext Is the current leaf, then clean out Its Insides so that It can be recycled. temp2H1gh/Low Is pointing 
at the sender field of the active context} s ' 1 


[] <- stackLow - temp2Low, NegBr, {are we done yet7} c3: 

MAR *- [temp2H1gh, temp2Low + 0], BRANCH[S, returnWrapup] cl- 

MDR -nllPoInter, {smash a field} C 2* 

temp2Low *■ temp2Low +1, c 3 j 

Noop, cl . 

G0T0[returningFromLeaf], 

notReturn1ng FromLeaf: 


{see If the active context Is a block context, by looking In the method field, temp2Low Is pointing at the sender field 

O T T. hflai". T. Ii/flfnntfivt 1 ” 


temp 2 Low «■ temp2Low + dlfTerenceBetweenSenderAndMethodFlelds, c3; 


MAR [temp2H1gh, temp2Low + 0], {read method field) cl; 
temp2Low ♦- uAct 1 veContextLow, c2 ! 
temp3Low «- MD, XDIsp, C 3 ! 

BRANCH[smashTwo, $, Oe], 


{this Is a blockContext, so we look up the sender/caller chain and see If we find the context we are returning to> 
templHigh +- uActlveContextHIgh, C 2 ; s 
templLow «- uActlveContextLow, C 3 ! 


contextChalnChase: 

[] + otLow xor nllPoInter, ZeroBr, 

[] *■ otLow xor homeLow, ZeroBr, BRANCH[$, notOnChaln], 
templLow •<- templLow + senderFleldOff set, BRANCH[$, IsOnChaln], 

MAR *- [templHigh, templLow + 0] {read sender from this context), 
LI +- chasingContextChain, 

otLow *- MD {next sender field), CALL[otMap2], 
isOnChain: 

otLow «- uActlveContextOop, 

InvalIdateContexts: 

LI «- inva'I IdatlngContext, 

CALL[otMap2], 


cl, at[chas1ngContextChain, 10, otMap2-return]; 

c2; 

c3; 

Cl; 

C2; 
c3; 


cl; 


c2; 
c3; 


templLow <- templLow + InstructlonPointerFleldOffset, 
Noop, 

Noop, 


cl, at[invalIdatlngContext, 10, otMap2-return]; 

c2; 

c3; 


MAR «• [templHigh, templLow + 0] {smash Inst ptr field), cl- 

MDR <- nllPoInter, c2 ! 

templLow *• templLow - dlfferenceBetweenSenderAndlnstructlonPoInterFlelds, c3; 


MAR [templHigh, templLow + 0] {smash sender field), cl- 
MDR <- nllPoInter, c2 ! 
otLow <- MD {get the next sender field), C 3; 


templLow *• templLow - senderFleldOff set, cl; 
templLow <- templLow + del taWordOf fset, c2 • 
Noop, c3 : 

MAR <- [templHigh, templLow + 0], cl * 
Noop, c2 ! 
temp3Low <- MD {delta word of current context), XDIsp, c3; 


BRANCH[refdNextContext, dontRefdNextContext, 0b], 

refdNextContext: 

LI ♦* nextContext, 

[] <- otLow LRotO, XDIsp, CALL[refd], 


Noop, 

dontRefdNextContext: 

[] *- otLow xor homeLow, ZeroBr, {are we done yet) 
BRANCH[$, wrapupReturn], 


cl, at[nextContext, 10, refdReturn]; 


c2; 
c3; 


60T0[invalIdateContexts], 


notOnChaln: 

CANCELBR[ $.1], c3 . 

Noop, cl . 
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smashTwo: 

temp2Low «- temp2Low + senderFleldOffset, c2- 

Hoop, c3 : 

MAR <- [t(imp2Hl9h, temp2Low + 0], cl- 

MDR nllPoInter, C 2 ; 

temp2Low «• temp2Low + dlfferenceBetweenSenderAndlnstructlonPoInterFlelds, c3; 

MAR *- [temp2H1gh, temp2Low + 0], cl- 

MDR *- nllPoInter, C 2 ! 

Noop, c3 : 

wrapupReturn: 

Noop, cl; 

returnWrapup: 

LI <- downOldContextOnReturn, C 2 ; 

otLow <- uActlveContextOop, XDisp, CALL[refd], c3; 


uNewContextOop 0 or homeLow,CALL[fetchContextReg1stersAndMakeContextVolatile], L0 «- returnlngToAContext, cl, 
at[down01dContext0nReturn, 10, refdReturn]; 


stackLow stackLow + 1, 
fetchContextRegisters-return]; 


c3, at[returnlngToAContext, 10, 


MAR «- [stackHigh, stackLow + 0], cl; 
MDR <- uReturnValue, c 2 * 
6OT0[fixupInstructionPointer], c3; 


cannotReturn: 

G0T0[zot], c3; 

cannotReturnB: 

GOTO[zot], c3; 


zot: 

G0T0[b.ytecodeFa11ed], cl; 


Return.me 


3-Apr-84 21:20:26 PST 


3 



Send.me 


l-Aug-84 18:34:47 PDT 


1 


{ 

} 


l-Aug-84 18:34:44 


{Send Literal Selector} 


sendL1teralSelectorW1th3B1tsOfArguments: 

temp2Low 4 - ib {get extension byte}, cl, bytecode[83]; 

IpLow 4 IpLow + PC16, backupIslByte, {account for extension byte} c2; 

temp3Low 4 temp2Low and if {get literal Index}, c3; 

temp3Low *- temp3Low + objectHeaderSIze + 1IteralStart, cl; 

templLow *■ temp2Low LRotl2 {start getting argument count}, c2; 

templLow «- RShiftl (templLow and Oe), SE *• 0, c3; 

Noop, cl; 

GOTO[getSelector], c 2; 


sendLIteralSelectorW 1 th 8 B 1 ts 0 fArguments: 

templLow <- 1b {get argument count}, cl, bytecode[84]; 

temp3Low 4 ib {get literal Index}, c2; 

IpLow *■ IpLow + 1, backupIs2Bytes, {account for extension bytes}, c3; 

temp3Low «- temp3Low + objectHeaderSIze + 1 IteralStart, cl; 

GOTO[getSelector], c2; 


{Send Literal Selector to Superclass} 

sendLlteralSelectorToSuperclassWith3BItsOfArguments: 


temp2Low 4 lb {get extension byte}, cl, bytecode[ 86 ]; 

IpLow «- IpLow + PC16, backupIslByte, {account for extension byte} c2; 

temp3Low 4 temp2Low and if {get literal Index}, c3; 

temp3Low temp3Low + objectHeaderSIze + 1 iteralStart, cl; 

templLow «• temp2Low LRotl2 {start getting argument count}, c2; 

templLow «- RShiftl (templLow and Oe), SE «* 0, GOTO[getSuperSelector], c3; 


sendL1tera1Select 0 rToSuperclassW1th8BitsOfArguments: 


templLow *- lb {get argument count}, cl, bytecode[ 86 ]; 

temp3Low <- lb {get literal Index}, c2; 

IpLow 4 IpLow + 1, backupIs2Bytes, {account for extension bytes}, c3; 

temp3Low *■ temp3Low + objectHeaderSIze + 1 IteralStart, cl; 

Noop, c2; 

GOTO[getSuperSelector], c3; 


getSuperSelector: 

{upon entry, temp3Low must contain the offset to the literal selector including the objectHeaderSIze, templLow must 
contain the number of arguments} 


temp2Low +> uCurrentMetbodLow {get the current method address}, cl; 

temp2H1gh 4 uCurrentMethodHigh, temp2Low 4 temp2Low 4 temp3Low {add In offset to literal selector}, c2; 
stackLow 4 stackLow - templLow {point at the new receiver}, c3; 

MAR 4 [teinp2H1gh, temp2Low + 0] {read the literal selector}, cl; 

uArgumentCount 4 templLow {may need this later, so save It}, c2; 

0 4 MD {the selector}, c3; 

MAR 4 [stackHigh, stackLow 4 0], cl; 

stackLow 4 stackLow + templLow {point at tos again}, L2 4 superclassReceiver, c2; 
otLow 4 md {the new receiver}, XDisp, CALL[getClass], c3; 


uNewRecelverLow 4 templLow, 
templLow <- templHIgh, 
uNewRecelverHIgh 4 templLow, 

{we save the class (contained In temp3Low) in a few clicks} 


cl, atfsuperclassRecelver, 10, getClass-return]; 

c2 ; 

c3; 


{In order to do a send to super, we need to get the superclass of the current method. The oop of the class of the current 
method is kept in an association, whose oop is the last literal of the current compiled method. To get at the last 
literal, we need to know how many literals exist in the current compiled method. We do this by cheating a little and 
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calling the getNewMethodHeader routine with it’s arguments 
association oop, check it's value field for a lambda, then 


pointing at the current method. Then we fetch the 
get the classes superclass and return it in temp 3 Low.} 


templHIgh *■ uCurrentMethodHIgh, cl . 
templLow e uCurrentMethodLow, c2 T 
uSelector *• Q, L2 *- gettingSuperclass, C 3 j 

CALL[getNewMethodHeader] {thus getting the current method's header], cl; 

getNewMethodHeader-return]** and SE * ° {1itera1 C ° Unt ° f CUrrent method} ’ cZ ' at[gett1ngSuperclass, 10. 
templLow 4 * uCurrentMethodLow, C 3 , 

templLow 4 - templLow + temp2Low, cl . 
templLow «- templLow + objectHeaderSIze, C 2; 
uNewReceiver 4 - otLow {save newRecelver -- next read smashes It}, c3; 


MAR «- [templHigh, templLow + 0] {read last literal 

uNewReceiversClass *■ temp3Low, 

otLow MD, {the association oop}, CALL[otMap], 

templLow *• templLow + assoclatlonValuelndex, 

Noop, 

Noop, 


In current method}, LI «• getMethodClass, cl; 
c 2 ; 

C3; 

cl, at[getMethodClass, 10, otMap-return]; 
c 2 ; 

C3; 


MAR 4 - [templHigh, templLow + 0] {read value field of association}, cl: 
Noop, c2; 

otLow +- MD {the oop of the class of the current method}, c3; 

[] <- otLow, ZeroBr, Ll 4- getSuperclass, cl; 

BRANCH[classIsNotLambda, classIsLambda], c2; 

classIsNotLambda: 

CALL[otMap] {to map the class of the current method}, c3; 


templLow *■ templLow + superclassOffset, 
Noop, 

Noop, 


cl, at[getSuperclass, 10, otMap-return]; 
c2; 
c3; 


MAR 4 - [templHigh, templLow + 0] {get superclass oop}, cl; 
otLow 4 - uNewReceiver {restore this for startMethodLookup}, c2 • 
temp3Low «■ MD, c3 ! 


[] <- temp3Low, ZeroBr {make sure superclass is non-lambda}, 
uStartLookup 4 - temp3Low, BRANCH[$, superclassIsLambda], 
G0T0[startMethodLookupV1aSuperSend], 


L3 4- 0 {this Is a lookup for execution}, cl; 
c2; 
c3; 


classIsLambda: {Loom: need to call Loom here} 
G0T0[ba11outl], 


superclassIsLambda: {Loom: need to call Loom here} 
G0T0[ba11outl], 


{Send Arithmetic Message} 


sendArlthmeticMessageO: {Smalllnteger +} 

MAR *- [stackHigh, stackLow + 0] {start read of argument], Ll *- smallAdd, cl, bytecode[0b0]- 
stackLow *• StackLow - 1 {point at receiver], CALL[prtm1t1veNeeds2Smanintegers], backupIsOBytes, cZ; 


temp3Low *• temp2Low + tempSLow, G0T0[pushAr1thmeticResult], 


c2, at[smallAdd, 10, arithmeticPrlmitives]; 


sendArithmeticMessagel: {Smalllnteger -} 

MAR <- [stackHigh, stackLow + 0] {start read of argument], Ll * smallSubtract, cl, bytecode[0bl]• 
stackLow *■ stackLow - 1 {point at receiver], CALL[primitiveNeeds2SmallIntegers], backupIsOBytes, c2; 


temp3Low «• temp2Low - temp3Low, G0T0[pushAr1thmeticResult], 


c2, at[smal1Subtract, 10 , arlthmetlcPrimitives]; 


sendArithmeticMessage2: {Smalllnteger <} 

MAR * [stackHigh, stackLow + 0] {start read of top of stack], Ll <- smallLess, cl, bytecode[0b2]• 
stackLow <- stackLow - 1 {point at receiver], CALL[pr1mit1veNeeds2SmallIntegers], backupIsOBytes! c2; 


[] *- temp2Low - temp3Low, NegBr, 


BRANCH[pushFalselnPrimitiveRelational, pushTruelnPrimitiveRelational], c3; 


c2, at[smallLess, 10, arithmeticPrlmitives]; 


sendArithmeticMessage3: {Smalllnteger >} 

MAR *- [stackHigh, stackLow + 0] {start read of top of stack], Ll <- smallGreater, cl, bytecode[0b3]: 
stackLow *■ stackLow - 1 {point at receiver], CALL[primiti veNeeds2Smal 1 Integers], backupIsOBytes, c 2 ; 


[] <- temp3Low - temp2Low, NegBr, 

BRANCH[pushFalselnPrimitiveRelational, pushTruelnPrimitiveRelational], 


c2, at[smallGreater, 10, arlthmetlcPrimitives]; 


sendArithmeticMessage4: {Smalllnteger <=} 

MAR <- [stackHigh, stackLow + 0] {start read of top of stack], Ll <- smallLessOrEqual, cl, bytecode[0b4]- 
stackLow <- stackLow - 1 {point at receiver], CALL[pr1m1tiveNeeds2SmallIntegers], backupIsOBytes, c2; 

Noo|> ’ c 2 , at[smallLessOrEqual, 10 , 
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arithmetlcPrlmitlves]; 

Noop, c3 ; 

[] ♦- temp2Low - temp3Low, NegBr, cl; 

[] temp2Low - temp3Low, ZeroBr, BRANCH[$, IsNeg], c2; 

BRANCH[pushFalselnPrimltiveRelatlonal, pushTruelnPrimitlveRelatlonal], c3; 

IsNeg: 

CANCELBR[pushTrueInPr1m1t1veRelatlonal, 1], c 3 ; 


sendArithmetlcMessageB: {SmallInteger >»} 

MAR <- [stackHIgh, stackLow + 0] (start read of top of stack}, LI <- smalIGreaterEqual, cl, bytecode[0b5]; 
stackLow «■ stackLow - 1 {point at receiver}, CALL[pr1mitiveNeeds2SmallIntegers}, backupIsOBytes, c2; 

[} <- temp2Low - temp3Low, NegBr, c2, at[smallGreaterEqual, 10, 

arithmetlcPrlmitlves]; 

BRANCH[pushT ruelnPrimitlveRelatlonala, pushFalselnPrlmlt1veRelat Ionala],c3; 
sendArithmetlcMessageB: {Smalllnteger *} 

MAR 4 - [stackHIgh, stackLow + 0] {start read of top of stack}, LI - smallEqual, cl, bytecode[0b6]; 
stackLow stackLow - 1 {point at receiver}, CALL[pr1m1t1veNeeds2SmallIntegers], backupIsOBytes, c2; 

[] 4 - temp2Low - temp3Low, ZeroBr, c2, at[smal!Equal, 10, arithmetlcPrlmitlves]; 

BRANCH[pushFalseInPr1m1tiveRelational, pushTruelnPr1mltiveRelatlonal], c3; 

sendAr1thmet1cMessage7: {Smalllnteger ~*} 

MAR «- [stackHIgh, stackLow + 0] {start read of top of stack}, LI <- smallNotEqual, cl, bytecode[0b7]; 
stackLow ♦- stackLow - 1 {point at reelver}, CALL[prim1t1veNeeds2Smanintegers], backupIsOBytes, c2; 

[] ♦- temp2Low - temp3Low, NZeroBr, c2 , at[smal1 Not Equal, 10 , arithmetlcPrlmitlves]; 

BRANCH[pushFalselnPrimltiveRelatlonal, pushTruelnPr1mltiveRelational], c3; 

sendAr1thmeticMessage8: {Smalllnteger *} 

backupIsOBytes, Q «- 0b8, GOTO[notYetInvented], 

sendArithmet1cMessage9: {Smalllnteger divide} 

backupIsOBytes, 0 <- 0b9, G0T0[notYetlnvented], 

sendArlthmeticMessagelO: {Smalllnteger mod} 

backupIsOBytes, 0 <■ Oba, GOTO[notYetInvented], 

sendArithmeticMessagell; {Smalllnteger makePoInt} 
otLow 4 - classPoIntPoInter, 
uClassToInstantlate *■ otLow, 
temp3High «- viaPrlmltlveMakePoInt, 

temp3Low «- 2 {number of fields in a Point}, backupIsOBytes, 

Noop, 

CALLfcreatelnstanceWithPoInters], 


templHIgh uNewObJectHIgh, 
createl nstance-return]; 

templLow 4 - uNewObjectLow, LI *- makePoInt, 

tempiLow templLow + yFieldOffsetlnPoint, CALL[getSmashTos], 


MAR 4 - [templHIgh, templLow + 0], 

MDR 4- temp3Low, otLow 4- temp3Low {save y field for refl}, 
templLow +■ templLow - offsetFromXFieldToYField, CALL[getTos], 

MAR <■ [templHIgh, templLow + 0], 

MDR 4- temp3Low, L2 4- upY, 

CALL[primRef1], {up y field} 

otLow temp3Low, L2 *• upX, CALL[primRef 1] {up x field}, 
temp3Low 4 - uNewObject, G0T0[pushTemp3LowAndDispatch], 


cl, bytecode[ 0 b 8 ]; 


cl, bytecode[0b9]; 


cl, bytecode[ 0 ba]; 


cl, bytecode[ 0 bb]; 
c 2 ; 
c3; 

cl; 
c 2 ; 
c3; 


cl, at[viaPr1mit1veMakePo1nt, 10, 

c 2 ; 
c3; 


cl, at[makePo1nt, 10, getSmashTos-return]; 
c 2 ; 
c3; 

cl, at[makePoint, 10, getTos-return]; 

c 2 ; 

c3; 

c3, at[upY, 10, primRef1-return]; 
c3, at[upX, 10, prlmRefl-return]; 


prlmRef1: 

Noop, 

LI 4 - primltlveRef 1, 

[] 4 - otLow LRotO, XDIsp, CALL[refi], 


cl; 
c 2 ; 
c3; 


L2D1sp, 

RET[prlmRefl-return], 


cl, at[pr1m1t1veRefi, 10, refiReturn]; 
c 2 ; 


getTos: 

{return the tos value In temp3Low without changing stackPointer or nllllng tos} 
MAR 4 - [stackHigh, stackLow + 0], Cl; 

LIDIsp, c2; 

temp3Low MD, RET[getTos-return], c3; 


getSmashTos: 

{return the tos value in temp3Low, replacing tos with nil, and decrementing the stack pointer} 
MAR <- [stackHigh, stackLow + 0], cl; 

MDR 4- nilPoInter, c2; 
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temp3Low <- MO, C 3 . 

Noop, ei; 
LIDIsp, C 2 ; 
stackLow <- stackLow - 1, RET[getSmashTos-return], c3; 


sendAr1thmet1cMassagel2: {SmallInteger bltShlft} 

MAR <- [stackHigh, stackLow + 0] {start read of argument}, 

LI <- smallBItShlft, cl, bytecode[Obc]; 

stackLow *- stackLow - 1 {point at receiver}, 

CALL[pr1m1t1veNeeds2Smanintegers], backupIsOBytes, c2; 


bltSblft: 

[] * temp3Low, NegBr, 

[] * temp2Low, ZeroBr, BRANCH [left, right]. 


c 2 , at [smallBItShlft, 10, arlthmetlcPrlmltlves]: 
c3; 


left: 

0 <- 0D - temp3Low, CarryBr, BRANCH [$, returnZeroLeft], cl: 

BRANCH [fallLeftShlft, $], c2; 

[] *- temp3Low, ZeroBr, C 3; 

leftLoop: 

BRANCH [$, leftShlftDone], cl; 

temp2Low •- temp2Low + temp2Low, PgCrOvDIsp, c2; 

temp3Low <- temp3Low - 1, ZeroBr, BRANCH [leftLoop, leftOverflow, 2], c3; 

leftShlftDone: 

temp3Low <- temp2Low, GOTO [pushArlthmetlcResult], c2; 

returnZeroLeft: 

temp3Low «- temp2Low, CANCELBR [pushArlthmetlcResult, 1], c2; 


right: 

0 +■ ~0F, BRANCH [$, returnZeroRIght], cl; 

[] «■ temp2Low, NegBr, c2; 

temp3Low temp3Low or Q, ZeroBr, BRANCH [posRIghtLoop, negRIghtLoop], c3; 

posRIghtLoop: 

BRANCH [$, posRIghtShlftDone], cl; 

temp2l.ow *■ RShiftl temp2Low, SE «- 0, e2; 

temp3Low *■ temp3Low + 1 , ZeroBr, GOTO [posRIghtLoop], c3; 

posRIghtShlftDone: 

tempSLow *■ temp2Low, GOTO [pushArlthmetlcResult], c2; 

negRIghtLoop: 

BRANCH [$, negRIghtShlftDone], cl; 

temp2Low *■ RShiftl temp2Low, SE <- 1, c2; 

temp3Low <- temp3Low + 1, ZeroBr, GOTO [negRIghtLoop], c3; 

negRIghtShlftDone: 

temp3Low <- temp2Low, GOTO [pushArlthmetlcResult], c2; 

returnZeroRIght: 

temp3Low <- temp2Low, CANCELBR [pushArlthmetlcResult, 1], c2; 

fallLeftShlft: 

Noop, c3; 

leftOverflow: 

CANCELBR [$, 1], cl; 

GOTO [ar1thmet1cPr1m1t1veFa11edC3], c2; 


sendAr1thmet1cMessagel3: {Smalllnteger dlv} 

backupIsOBytes, 0 *■ Obd, GOTOfnotYetlnvented], cl, bytecode[Obd]; 


sendAr1thmet1cMessagel4: {Smalllnteger bltAnd} 

MAR ^ [stackHigh, stackLow + 0] {start read of argument}, LI *- smallBHAnd, cl, bytecode[0ba]; 
stackLow " stackLow - 1 {point at receiver}, CALL[prim1tiveNeeds2Smal1 Integers], backupIsOBytes, c2; 


temp3Low *■ temp2Low and temp3Low, GOTO[pushArithmet1cResult], c2, at[smallB1tAnd, 10, arlthmetlcPrlmltlves]; 


sendArlthmetlcMessagelO: {Smalllnteger bltOr} 

MAR <- [stackHigh, stackLow + 0] {start read of argument}, LI <- smallBItOr, cl, bytecode[0bf]; 
stackLow <- stackLow - 1 {point at receiver}, CALL[pr1m1t1veNeeds2Smal1 Integers], backupIsOBytes, c2; 

temp3Low <- temp2Low or temp3Low, G0T0[pushAr1thmet1cResult], c2, at[smallB1tOr, 10, arlthmetlcPrlmltlves]; 


pr1m1t1veNeeds2SmallIntegers: 

{upon entry, stackLow points at receiver, there Is a pending read on the argument, and LI contains the return linkage. At 


Send.me 


l-Aug-84 18:34:47 PDT 


4 


: l-Aug-84 18:34:47 PDT 

th^ra^ receiver} 1 ” POl " tS ** ^ reCe1 ''- r ' tsm P 3Lo “ contains the raw (hardware-oriented) argument, tempZLow contains 

temp3Low «- MD {get argument), L00PH0LE[mdok], XDIsp {to test for Smalllnteger), c3; 

MAR <- [stackHIgh, stackLow + 0], BRANCH[ar1thmet1cPr1m1tiveFa11ed, $, Oe], cli 
[] *■ temp3Low LRritO, XHDIsp {determine sign of argument), c2; 

tempZLow <- MD, BRANCH [$, argNegatlve, 2], XDIsp {so we can test receiver for being a Smaninteger),c3; 
argNegat1ve P3L ° W * RSh1ftl tem P 3Low ’ SE * {cake a useful number) BRANCH[receiverNotSmall, adjustRecelver, Oe], cl; 

adjustRecelSer*" * RSh1ftl tem P 3Low - SE *••*. { mak « a useful negative number) BRANCH[rece1verNotSm a n, adjustRecelver, Oe], cl; 

[] <- temp2Low LRotO, XHDIsp {determine sign of receiver), c2- 

BRANCH[$, recelverNegatlve, 2], LIDIsp, c g! 

temp2Low <- RShlftl temp2Low, SE «- 0, RET[ar1thmet1cPr1m1t1ves], cl; 

recelverNegatlve: 

temp2Low <- RShlftl temp2Low, SE *• 1 , RET[ar1thmet1cPr1m1t1ves], cl; 

receiverNotSmall: 

G0T0[ar1thmet1cPr1m1t1veFa11edC3], c2 . 


pushArlthmetlcResult: 

{upon entry temp3Low Is the result of the primitive arithmetic operation, stackLow Is pointing at the receiver 
vi We ™ ake temp3L°w a Smal1 Integer, and test for overflow to see if all Is ok. If not, fall the primitive) 
temp3Low *- temp3Low + temp3Low + 1 {make result a Smalllnteger), ■ ' 

FgCrOvDIsp, c3; 

MAR «- [stackHIgh, stackLow + 0] {start writing resultant Smalllnteger), 

BRANCH[$, largelntegerTest, 2], cl . 

MDR «- temp3Low, NextBytecode, c3 ! 

DISPNI[bytecodes], IpLow «- IpLow + PC18, C 3; 

largelntegerTest: 

{If It's negative now, it's really positive) 
temp3Low «- temp3Low RShlftl, SE *■ 0, NegBr, c 2 - 

temp3Low «- temp3Low LRot 8 , BRANCH [arlthmetlcPrlmltlveFalledCl, $], c3; 

uLargelntegerValueLow <- temp3Low, c j. 

temp3Low *- 2, {2 byte large Integer) C 2 j 

temp3High *- twoByteLargelnteger, CALL [createLargePosItlvelnteger], c3; 

createlnstance-return]* rVa1U *^ 0W ' «• at TwoByteLargelnteger, 10 . 

Ll «- largelntegerResult, r2 . 

CALL [otMap2], 

templLow * templLow + objectHeaderSIze, cl, at [largelntegerResult. 10, otMap2-retu 

Noop! ‘ 3 ! 

MAR <- [templHIgh, templLow + 0], cl . 

MDR *• temp3Low, c2 ! 

Noop, c3; 

MAR «- [stackHIgh, stackLow + 0], cl . 

MDR •- otLow, NextBytecode, c2 ! 

DISPNI[bytecodes], IpLow <- IpLow + PC16, C 3 | 

arlthmetlcPrlmltlveFalledCl: 

Noop, cl . 

G0T0[ar1thmet1cPr1m1t1veFa11edC3], c2; {can't create a LargeNegativelntege 

arlthrneticPrlmltlveFalled: 

CANCELBR[$,Of], c2 . 

ar1thmeticPrim1tiveFa11edC3: 

stackLow <-■ stackLow + 1 {adjust to point at argument}, 

L3Disp {are we here because a directly dispatched primitive 
failed or because a looked up primitive failed?}, c 3 ; 


cl, at [largelntegerResult, 10, otMap2-return]; 
c2; 


{can’t create a LargeNegativelnteger} 


DISP2[whichWayShouldIGo], 

Noop, {primitive found thru lookup failed, run method}, 
G0T0[act1vateNewMethod], 

{directly dispatched primitive failed, so do lookup} 
Noop, 

LIDIsp, 

DISP4[ar1thPrim1tIve], 
temp3Low «- 0, GOTO[getSelectorAndArgs], 
temp3Low «- 2, G0T0[getSelectorAndArgs], 
temp3Low <- 4, G0T0[getSelectorAndArgs], 
temp3Low +- 6, G0T0[getSelectorAndArgs], 


c2, at[1, 4, whlchWayShouldlGo]; 
c3; 


C2 , at[0, 4, whlchWayShouldlGo]; 
c3; 


c2, at[0, 10, arlthPrlmltive] 
c2, at[l, 10, arlthPrlmltive] 
c2, at[ 2 , 10 , arlthPrlmltive] 
c 2 , at[3, 10, arlthPrlmltive] 
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temp3Low <- 8, GOTQ[getSelectorAndArgs], 
temp3Low *- Oa, GOTO[getSelectorAndArgs], 
temp3Low <- Oc. GOTO[getSelectorAndArgs], 
temp3Low «■ Oe, GOTO[getSelectorAndArgs], 
temp3Low «■ 10 , GOTO[getSelectorAndArgs], 
temp3Low - 12 , G0T0[getSe1ectorAndArgs], 
temp3Low «• 14, G0TO[getSelectorAndArgs], 
t-emp3Low *■ 16 , GOTO[getSelectorAndArgs], 
temp3Low *■ 18, GOTO[getSelectorAndArgs], 
temp3Low * la, GOTO[getSelectorAndArgs], 
temp3Low *• lc, GOTO[getSelectorAndArgs], 
temp3Low <- le, GOTO[getSelectorAndArgs], 

special Lookup: 

Noop, 

getSelectorAndArgs: 


c2, at[4, 10, arlthPrlmltlve]; 
c 2 , at[6, 10, arlthPrlmltlve]; 
c 2 , at[6, 10, arlthPrlmltlve]; 
c2, at[7, 10, arlthPrlmltlve]; 
c2, at[8, 10, arlthPrlmltlve]; 
c2, at[9, 10, arlthPrlmltlve]; 
c2, at[0a, 10, arlthPrlmltlve]; 
c2, at[0b, 10, arlthPrlmltlve]; 
C2, at[0c, 10, arlthPrlmltlve]; 
c2, at[0d, 10, arlthPrlmltlve]; 
02, at[0e, 10, arlthPrlmltlve]; 
c2, at[0f, 10, arlthPrlmltlve]; 

C2; 


{upon entry temp3Low must be the (1ndex*2)+l Into the special selectors object] 
otLow r speclalSelectorsOop, CALL[otMap2], LI gett1ngSpec1alSelectors,c3; 


templLow <- templLow + tempSLow, 
otMap2-return]; 

templLow *• templLow + objectHeaderSIze. 
Noop, 

MAR <- [templHIgh, templLow * 0], 
templLow *■ templLow +1, 

0 *■ HD {the selector], 


cl, at[gett1ngSpec1alSelectors, 10, 

c2; 
c3; 

Cl; 
c2; 
c3; 


MAR <- [templHIgh, templLow + 0], 

Noop, 

templLow «• MD {the argument count, a Smalllnteger], 


templLow <■ RShlftl templLow, SE *- 0, cl . 
uArgumentCount <- templLow, c2 ; 
stackLow *■ stackLow - templLow {point at receiver], GOTO[getReca1ver], c3; 


pushFalselnPrlmltlveRelatlonal: 

temp3Low <- falsePoInter, GOTO[pushRelat1onalResult], 

pushFalselnPrlmltlveRelatlonala: 

temp3Low <- falsePoInter, GOTO[pushRelat1onalResult], 

pushTruelnPrlmltlveRelatlonal: 

temp3Low *■ truePoInter, G0T0[pushRelat1onalResult], 

pushTruelnPrlmltlveRelatlonala: 

temp3Low <- truePoInter, GOTO[pushRelat1onalResult], 


pushRelatlonalResult: 

Noop, 

G0T0[pushTemp3LowAndD1spateh], 


{Send Special Message] 


sendSpeclalMessageO: {at:] 

temp3Low <- 32'd, G0T0[spec1alLookup], backupIsOBytes, 

sendSpeclalMessagel: {at:put:} 

temp3Low *- 34'd, G0T0[spec1alLookup], backupIsOBytes, 

sendSpec1alMessage2: {size} 

temp3Low +■ 36'd, GOTO[specialLookup], backupIsOBytes, 

sendSpec1alMessage3: {next} 

temp3Low * 38'd, G0T0[spec1alLookup], backupIsOBytes, 


cl, bytecode[0c0]; 
cl, bytecode[0cl]; 
cl, bytecode[0c2]; 
cl, bytecode[0c3]; 
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sendSpec1alMessage4: {nextPut:} 

temp3Low <- 40’d, GOTO[specialLookup], backupIsOBytes, 


sendSpeclalMessageB: {atEnd} 

temp3Low *- 42'd, GOTO[spec1alLookup], backupIsOBytes, 


sendSpec1alMessage6: { *■ } 

MAR <- [stackHigh, stackLow + 0] {start read of argument}, 
MDR *- nllPointer {smash argument}, 
temp3Low *• md {get argument}. 


cl, bytecode[0c4]; 


cl, bytecode[0c6]; 


cl, bytecode[0c6]; 

C2; 

C3; 


stackLow «- stackLow - 1, 
Noop, 

Noop, 


cl; 

C2; 

c3; 


MAR «- [stackHigh, stackLow + 0] {start read of receiver}, cl' 
Noop, c2 : 
temp2Low <- MD, c3 . 

Noop, cl . 
[] <- temp3Low - temp2Low, ZeroBr, c2 . 
BRANCH[pushFa1selnPrimltlveRelatlonal, pushTruelnPrlmltlveRelatlonat], c 3 ; 


sendSpec1alMessage7: {class} 

MAR <- [stackHigh, stackLow + 0], 

L2 «- primitiveClass {the getClass call proceeds directly to 
otLow <- MD, XDisp {to test for Smal 1 Integer}, CALL[getClass 


cl, bytecode[0c7j; 
pushTemp3LowAndD1spatch}, c2; 
]. c3; 


sendSpecialMessage8: {blockCopy:} 

MAR *• [stackHigh, stackLow + 0] {read arg count}, backupIsOBytes, 
stackLow <- stackLow - 1 , 

temp2Low MD {arg count as small Integer}, 


cl, bytecode[0c8]; 

c2; 

c3; 


MAR <- [stackHigh, stackLow + 0], 

0 «■ methodContextClassOop, L 2 «- dlrectBlockCopy, 
otLow 4 . MD {context oop}, XDisp, CALL[getClass], 


[] «- temp3Low xor Q, ZeroBr, 

uArgumentCount <- temp2Low, BRANCH[$, blockCopyOk], 
0 «- blockContextClassOop, 


cl, at[directBlockCopy, 

c2; 

c3; 


[] *■ temp3Low xor Q, ZeroBr, 
BRANCH[$, blockCopyOkA], 
temp3Low <- 48'd, 


stackLow stackLow + 1 , GOTO[specialLookup], 


blockCopyOk: 

GOTO[primitiveBlockCopyViaDirectDispatch], 
blockCopyOkA: 

G0T0[primitiveBlockCopyViaDirectDispatch], 


sendSpecialMessage9: {value} 

MAR <- [stackHigh, stackLow + 0], backupIsOBytes, 
uArgumentCount 4-0, 

valueGettingContext: 

otLow «■ MD, XDisp, L2 *■ dlrectValue, CALL[getClass], 

temp2Low «- blockContextClassOop, 

[] *- temp3Low xor temp2Low, ZeroBr, 

BRANCH[$, primltiveValueViaDirectDispatch], c3; 

{not a blockContext, do special lookup} 

[] uArgumentCount, ZeroBr, 

BRANCHfwasValueColon, wasValue], 

wasValue: 

temp3Low *• 60'd, G0T0[valueLookup], 
wasValueColon: 

temp3Low *■ 62’d, G0T0[valueLookup], 

valueLookup: 

GOTO[special Lookup], 


cl, bytecode[0c9]; 
c2; 

c3; 

cl, at[directValue, 10, 
c2; 

cl; 

C2; 

c3; 

c3; 

Cl; 


sendSpeclalMessagelO: {value:} 

stackLow +* stackLow - 1, backupIsOBytes, 
temp3Low *■ 

uArgumentCount «- temp3Low, 

MAR +■ [stackHigh, stackLow + 0], C l ; 

stackLow stackLow + 1 {In case of failure}, G0T0[valueGettingContext], c2; 


cl, bytecode[0ca]; 
c2; 

C3; 


10, getClass-return]; 


getClass-return]; 
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sendSpeclalMessngell: {do:} 

tempSLow <- 64'd, G0T0[spec1alLookup], backupIsOBytes, 

sendSpec1alMessagel2; {new} 

temp3Low <* B6'd, GOTO[spec1alLookup], backupIsOBytes. 

sendSpec1alMessagel3: {new:} 

temp3Low *■ 68'd, GOTO[specialLookup], backupIsOBytes, 

sendSpec1alMessagel4: {x} 

temp3Low «- 60'd, GOTO[spec1alLookup], backupIsOBytes, 
sendSpecialMessagel5: {y} 

temp3Low +■ 62'd, GOTOfspeclalLookup], backupIsOBytes, 


cl, bytecode[Ocb]; 
cl, bytecode[Occ]; 
cl, bytecode[Ocd]; 
cl, bytecode[Oce]; 
cl, bytecode[Ocf]: 


{Send Literal Selector With No Arguments} 

sendl. 1 te ral Sel ecto rOWI thNoA rguments: 

temp3Low <- 1IteralFleldO, backupIsOBytes 

sendl. Iteral Sel ectorlWI thNoArguments: 

temp3Low *- 1IteralFleldl, backupIsOBytes 

sendl.1teralSelector2W1thNoA rguments: 

temp3Low *■ 11teralF1eld2, backupIsOBytes, 

sendLiteralSelectorSWithNoArguments: 

tempSLow <- 11teralF1eld3, backupIsOBytes, 

sendL1teralSelector4W1thNoArguments; 

temp3Low *- 1 iteralF1eld4, backupIsOBytes, 

sendLlteralSelector6W1thNoArguments: 

temp3Low «■ 11teralF1eld6, backupIsOBytes, 

sendL1teralSelector6W1thNoArguments: 

temp3Low <- 11teralField6, backupIsOBytes, 

sendLlteralSelector7WithNoArguments: 

temp3Low *- 11teralF1eld7, backupIsOBytes, 

sendL1teralSelector8W1thNoArguments: 

temp3Low *■ 1 IteralF1eld8, backupIsOBytes, 

sendL1tera!Selector9W1thNoArguments: 

temp3Low *- 1IteralFleldO, backupIsOBytes, 

sendLlteralSelecto rlOWItbNoArguments: 

temp3Low *■ 1 IteralFleldlO, backupIsOBytes 

sendL1tera1SelectorllWIthNoArguments: 

temp3Low *■ HteralFleldll, backupIsOBytes 

sendLlteralSelectorl2W1thNoArguments: 

temp3Low <- 1 IteralF1eldl2, backupIsOBytes, 

sendL1teralSelectorl3W1thNoArguments: 

temp3Low - 11taralF1eldl3, backupIsOBytes, 

sendLlteralSelectorl4W1thNoArguments: 

tempSLow <- 11teralF1eldl4, backupIsOBytes, 

sendLlteralSelectorl6WithNoArguments: ■ 

temp3Low «• UteralFleldlB, backupIsOBytes, 


GOTO[getSelectorZeroArguments],cl, bytecode[OdO]; 
GOTO[getSelectorZeroArguments],cl, bytecode[Odl]; 
GOTO[getSelectorZeroArguments],cl, bytecode[ 0 d 2 ]; 
GOTO[getSelectorZeroArguments],cl, bytecode[Od3]; 
GOTO[getSelectorZeroArgumants],cl, bytecode[0d4]; 
GOTO[getSelectorZeroArguments],cl, bytecode[ 0 d 6 }; 
GOTO[getSelectorZeroArguments],cl, bytecode[ 0 d 6 ]; 
GOTO[getSelectorZeroArguments],cl, bytecode[0d7}: 
GOTO[getSelectorZeroArguments],cl, bytecode[ 0 d 8 ]; 
GOTO[getSelectorZeroArguments],cl, bytecode[0d9]; 
GOTO[getSelectorZeroArguments],cl, bytecode[Oda]: 
GOTO[getSelectorZeroArguments],cl, bytecode[Odb]; 
GOTO[getSelectorZeroArguments],cl, bytecode[Odc]; 
BOTO[getSelectorZeroArguments],cl, bytecode[Odd]; 
GOTO[getSelectorZeroArguments],cl, bytecode[Ode]; 
GOTO[getSelectorZeroArguments],cl, bytecode[Odf]; 


getSelectorZeroArguments: 

templLow <■ 0, GOTO[getSelector], 


{Send Literal Selector With 1 Argument} 


sendLlteralSelectorOWithlArgument: 

temp3Low <- 1iteralFleldO, backupIsOBytes, GOTO[getSelectorOneArgument], cl, bytecodefOeO]; 
sendLlteralSelectorlWithlArgument: 

temp3Low «- 1iteralFieldl, backupIsOBytes, GOTOfgetSelectorOneArgument], cl, bytecode[Oel]; 
sendLIteralSelector2WithlArgument: 

temp3Low *- 1iteralField 2 , backupIsOBytes, GOTOfgetSelectorOneArgument], cl, bytecode[0e23; 
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sendLIteralSelector3W1thlArgument: 

temp3Low <- 11teralF1eld3, backupIsOBytes, 

sendL1teralSelector4W1thlArgument: 

temp3Low <: 11teralF1eld4, backupIsOBytes, 

sendLIteralSelector5W1thlArgument: 

temp3Low <- 1IteralF1eld6, backupIsOBytes, 

sendL1teralSelector6W1thlArgument: 

temp3Low <- UteralFleldB, backupIsOBytes, 

sendLIteralSelector7W1thlArgument: 

temp3Low <- literal F1eld7, backupIsOBytes, 

sendLIteralSelector8W1thlArgument: 

temp3Low <- 1 IteralFieldS, backupIsOBytes, 

sendLIteralSelector9UlthlArgument: 

temp3Low <- 11teraTF1eld9, backupIsOBytes, 

sendLlteralSelectorlOWIthlArgument: 

temp3Low <- 11teralFieldlO, backupIsOBytes, 

sendLIteralSelectorllWIthlArgument: 

temp3Low <- 1 IteralFleldll, backupIsOBytes, 

sendLIteralSelectorl2W1thlArgument: 

temp3Low <- 11teralFieldl2, backupIsOBytes, 

sendL1teralSelectorl3W1thlArgument: 

temp3Low <- 11teralF1eldl3, backupIsOBytes, 

sendL1teralSelectorl4W1thlArgument: 

temp3Low *- 11teralF1eldl4, backupIsOBytes, 

sendLIteralSelectorlSWIthlArgument: 

temp3Low <- 1 iteralFieldlB, backupIsOBytes, 


getSelectorOneA rgument: 

templLow - 1 , GOTOfgetSelector], 


GOTO[getSelectorOneArgument], cl, bytecode[Oe 3 ]; 
GOTOfgetSelectorOneArgument], cl, bytecodef 0 e 4 ]; 
GOTO[getSelectorOneArgument], cl, bytecode[ 0 e 5 ]; 
GOTO[getSelecto rOneA rgument3, cl, bytecodef0e6]; 
GOTOfgetSelectorOneArgument], cl, bytecode[Oe 7 ]; 
GOTOfgetSelectorOneArgument], cl, bytecodef0e8]; 
GOTOfgetSelectorOneArgument], cl, bytecode[ 0 e 9 ]; 
GOTOfgetSelectorOneArgument],cl, bytecodefOea]; 
GOTOfgetSelectorOneArgument],cl, bytecodefOeb]; 
GOTOfgetSelectorOneArgument],cl, bytecodefOec]; 
GOTOfgetSelectorOneArgument],cl, bytecodefOed]; 
GOTOfgetSelectorOneArgument],cl, bytecodefOee]; 
GOTOfgetSelectorOneArgument],cl, bytecodefOef]; 

c 2 ; 


{Send Literal Selector With 2 Arguments} 


sendL1teralSelectorOW1th2Arguments: 

tem P 3Low 1IteralFleldO, backupIsOBytes, GOTOfgetSelectorTwoArguments],cl, bytecodefOfO]: 
sendLIteralSelectorlW1th2Arguments: 

tempSLow <• 1IteralFleldl, backupIsOBytes, GOTO[getSelectorTwoArguments],cl, bytecodefOf 1 ]; 
sendLIteralSelector 2 W 1 th 2 Arguments: 

temp 3 Low r 1IteralField 2 , backupIsOBytes, GOTOfgetSelectorTwoArguments],cl, bytecodefOf 2 ]; 
sendLTteralSelector3W1th2Arguments: 

temp 3 Low *- 1 1 teralF 1 eld 3 , backupIsOBytes, GOTOfgetSelectorTwoArguments],cl, bytecodef Of 3 ]; 
sendL1'teralSelector4W1th2Arguments: 

temp 3 Low <- 11 teralF 1 eld 4 , backupIsOBytes, GOTOfgetSelectorTwoArguments],cl, bytecodef 0 f 4 ] ; 
sendLIteralSelector5W1th2Arguments: 

temp 3 Low - 1 1 teralField 5 , backupIsOBytes, GOTOfgetSelectorTwoArguments],cl, bytecodefOfB]; 
sendL 1 teralSelector 6 With 2 Argum 0 nts: 

temp 3 Low 1 iteralField 6 , backupIsOBytes, GOTOfgetSelectorTwoArguments],cl, bytecode[ 0 f 6 ]; 
sendL 1 teralSelector 7 With 2 Arguments: 

temp 3 Low <- 1iteralField7, backupIsOBytes, GOTOfgetSelectorTwoArguments],cl, bytecodefOf 7 ]; 
sendL1teralSelector 8 With 2 Arguments: 

temp 3 Low <* 1itera!F1eld8, backupIsOBytes, GOTOfgetSelectorTwoArguments],cl, bytecodef0f8]j 
sendLiteralSelector9With2Argument$: 

temp 3 Low <- 7iteralField9, backupIsOBytes, GOTOfgetSelectorTwoArguments],cl, bytecode[ 0 f 9 ]; 
sendL1teralSelectorlOW1th2Arguments: 

temp3Low <- 1iteralFieldlO, backupIsOBytes, GOTOfgetSelectorTwoArguments],cl, bytecodefOfa]; 
sendLiteralSelectorllWith 2 Arguments: 

temp 3 Low *■ 1 IteralFieldll, backupIsOBytes, GOTOfgetSelectorTwoArguments],cl, bytecodefOfb]; 
sendLiteralSelectorl2W1th2Arguments: 

temp3Low «■ 1IteralFieldl 2 , backupIsOBytes, GOTOfgetSelectorTwoArguments],cl, bytecodefOfc]; 
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sendLiteralSelectorl3Witti2Arguments: 

temp3Low *■ 1IteralF1eldl3, backupIsOBytes, GOTO[getSelectorTwoArguments],cl, bytecode[Ofd]; 
sendL1teralSelectorl4With2Arguments: 

temp3Low <- literalFieldl4, backupIsOBytes, GOTO[getSelectorTwoArguments],cl, bytecode[Ofe]; 
sendL1teralSelectorl5With2Arguments: 

temp3Low «* 1IteralFieldl6, backupIsOBytes, GOTO[getSelectorTwoArguments],cl, bytecode[Off]; 


getSelectorTwoArguments: 

templLow *• 2, GOTO[getSelector], C 2; 


getSelector: 

{upon entry, temp3Low must contain the offset to the literal selector Including the obiectHeaderSize, templLow must 
contain the number of arguments} 


temp2Low «- uCurrentMethodLow {get the current method address}, c3; 


temp2H1gh uCurrentMethodHIgh, temp2Low temp2Low + temp3Low {add 
Noop, 

stackLow stackLow - templLow {point at the new receiver}. 


in offset to literal selector}, 
c2; 
c3; 


cl; 


MAR «- [temp2High, temp2Low + 0] {read the literal selector}, cl; 

uArgumentCount <- templLow {may need this later, so save it}, c2; 

0 MD {the selector}, C 3 ; 

getReceiver: 

MAR *- [stackHIgh, stackLow + 0], L3 «- 0 {this is a lookup for execution}, cl; 
stackLow <- stackLow + templLow {point at tos again}, L2 «- gettingNewRecelversClass, c2; 
otLow *• MD {the new receiver}, XDisp, CALL[getClass] c3; 


{after the getClass call — 


0 is the selector 

templHigh/Low are the base of the new receiver 

temp2High is the high address of the current Comp 11edMethod 

temp2Low is low address of literal in the current CompiledMethod 

temp3Low is the class of the receiver 

otLow is still the new receiver 


startMethodLookup: 


{upon entry, otLow must be oop of new receiver, templHigh/Low Is the base of new receiver, temp3Low must oop pf the class 
in which to start the search, 0 must be selector} 


uNewReceiver «- otLow, 
getClass-return]; 
uNewReceiversClass «■ temp3Low, 
uSelector *■ 0, 

uNewReceiverLow «- templLow, 
templLow *■ templHIgh, 
uNewReceiverHIgh templLow, 

startMethodLookupViaSuperSend: 


cl, at[gettingNewReceiversClass, 10, 

c2 ; 
c3; 

Cl; 
c2; 
c3; 


{first, we look in the method cache} 

temp2Low +■ Q and temp3Low {mash selector and class together}, cl; 
temp2Low + temp2Low and Off {266 entries In message cache}, c2; 
temp2Low +* LShiftl tempZLow, SE +■ 0 {cache entries are 4 words }, c3; 


temp2Low i- LShiftl temp2Low, SE +■ o, cl; 

uHash *- temp2Low {and save in case cache update Is needed}, c2; 

templLow *■ uMethodCacheLow {get the method cache address}, c3; 

templHigh *- uMethodCacheHigh, templLow <* temp2Low{hash index} + templLow, cl; 
uStartLookup *■ temp3Low, C 2; 

Noop, c3 ! 


{at this point, temp2Low is the hash Index, templLow is abs address into cache} 


MAR «* [templHigh, templLow + 0] {read word of cache entry}, cl; 
templLow <- templLow +1, C 2 ; 
temp2Low <- MD {the selector field from cache entry}, c3; 

[] «- tempZLow - Q, ZeroBr {test for selector match}, LI <- methodSearch, cl; 
BRANCH[notInCache, $], c2 ; 
Noop, c3; 
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MAR «- [templHIgh, templLow + 0] {next word from cache entry}, cl; 
templLow templLow +1, c2 . 
tempZLow «- MD {the class field of cache entry}, c3; 

[] «• temp3Low - temp2Low, ZeroBr {test for class match}, cl- 
BRANCH[notlnCachex, $], c2 ! 
Noop, c3 j 

{we have a cache hit 1} 

MAR «- [templHIgh, templLow + 0] {cache hit, get method oop} cl; 
templLow «- templLow +1, c2 . 
otLow *■ MD, {and save it for otMapping} c 3 j 

MAR <- [templHIgh, templLow + o] {finally,-get the primitive flag} cl; 
uNewMethodOop <- otLow, Ll «- gettingMethodBase, c2; 
temp2Low *■ MD, CALL[otMap] {to get the CompIledMethods address}, c3; 


{at the otMap call, temp2Low is the primitive flag 
temp2Low is the new receiver’s class 
temp3Low is also the new receiver’s class 
otLow is the oop of the method 

after the otMap call, templHigh/Low are the compIledMethod's start address 


2.*" templHIgh {start saving CompIledMethod’s address}, L2 *• foundViaCache {the getNewMethodHeader call will return 
directly to executeNewMethod}, CALL[getNewMethodHeader], cl, at[gett1ngMethodBase, 10, otMap-return]; 


{If we get to either notlnCachex or notlnCache, temp3Low must be the oop of the new receiver's class and 0 must be the 
selector we’re looking for} 

notlnCachex: 

otLow *■ temp3Low {get oop of class}, CALL[otMap] {to get address of class}, c3; 


notlnCache; 

otLow t,emp3Low {get oop of class}, CALL[otMap] {to get address of class}, c3; 


temp3Low *- RShlftl 0 {apply simple hash function to sel 
uHashedSelector <- temp3Low, 

Noop, 


ctor}, S[>0, cl, at[methodSearch, 10, otMap-return]; 
c2; 
c3; 


uNewClassLow +■ templLow, 
templLow <- templHIgh, 

uNewClassHIgh *• templLow {save class address In case we need to look 


cl, at[saveSuperclass, 
c2; 

In superclass}, c3; 


10, otMap-return]; 


templLow *• uNewClassLow {not enuf registers ...}, 
templLow «• templLow + messageDIctlonaryOffset, 
Noop, 


cl; 
c2; 
c3; 


MAR ♦* [templHIgh, templLow + 0]{read the messageDictionary oop}, cl; 
Ll <* messageDictionary, c2 , 
otLow <- MD, CALL[otMap] {and otMap it}, C 3; 


tryThlsDIctlonary: 

temp2Low 4- templLow + SelectorStartPlusObjectHeaderSIze, cl, at[messageDictIonary 

uSelectorsStartlnDictlonary *- temp2Low {remember address of first oop In dictionary}, c2• 
templLow «- templLow + sIzeFleldOffset, c3; 


10, otMap-return]; 


MAR [templHigh, templLow + 0] {get the size field}, cl; 

templLow <- templLow - sizeFieldOffset {low address of dictionary object}, c2; 
temp3Low *- MD {dictionary length}, C 3 ; 


temp2Low 4- templLow, c j. 

temp2Low f- temp2Low {diet low address} + temp3Low {dictinary length}, c2; 
temp2Low temp2Low - 1 {yielding address of last selector in dictionary}, c3; 

temp3Low <* temp3Low {length}- SelectorStartPlusObjectHeaderSize - 1 {yielding the ’’mask’’}, cl* 
temp3Low «- temp3Low{mask} and uHashedSelector, c2; 

temp3Low <- temp3Low + SelectorStartPlusObjectHeaderSIze, c3; 

{and add the dictionary relative offset to the dictionary base} 
templLow <- templLow + temp3Low, cj. 

uWrap 4- o {probing in this dictionary has not yet wrapped}, c2; 

Noop, c3 ; 

probe: 

MAR *■ [templHigh, templLow + 0], {read oop from methodDIctionary} cl; 

Noop, c2 . 

temp3Low *• MD, c3 • 


[] *- temp3Low xor nilPoInter, ZeroBr, cl; 

[] temp3Low xor Q {selector}, ZeroBr, BRANCH[$, nllFound], c2;' 

BRANCH[checkForEndOfDictionary {might still be in this dictionary If we wrap}, foundlt], c3; 

checkForEndOfDictlonary: 

Noop, cl . 

[] *• templLow {where we are} - temp2Low {end of dictionary}, ZeroBr, c2; 
templLow <- templLow + 1 , BRANCH[probe, $], c 3 : 


{need to check for wrapping} 
[] 4- uWrap, ZeroBr, 
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uWrap <- -templLow xor templLow {mark that we've wrapped! 
tempi Low <- uSelectorsStartlnDict ionary, G0T0[probe], 


BRANCH[trySuperclass, 
c3; 


$]. 


c2; 


nllFound: 

{not in this dictionary, try superclass} 

templHigh - uNewClassHIgh, CANCELBR[getAndCheckSuperclass, 1 ], 

trySuperclass: 

templHIgh ♦* uNewClassHigh, 

getAndCheckSuperclass:- 

templLow +■ uNewClassLow, 

templLow <- templLow + superclassOffset, 

Noop, 


c3; 


c3; 


cl; 
c2; 
c3; 


MAR <- [templHIgh, templLow + 0] {get superclass oop}. 
Noop, J 

OtLow <- MD, 


Noop, 


yA; C ^{ L ^L!:ro?Mlp 0 ^t er n,? } e : 0 Ls N “tU^^ V r:t S ^^ r ? ,aSS {1f We 0tMaP - “ return b ° f ° rS trylhl.DIctlona*}. c2; 


doesNotUnderstand: 

GOTO[b y tecodeFa11ed], 


foundlt 


{we have found the selector In the methodDictlonary. 
update the cache} 

temp2Low <- uSelectorsStartlnDIctlonary, 

0 * templLow {location of hit in methodDictlonary} - 
templLow <- temp2Low - 1 {point at methodArray field}, 


we need to get the method oop from the parallel array, and then 
cl; 

temp2Low, {yielding relative location of selector} c2- 
c3: 


MAR <- [templHIgh, templLow + 0], {get the oop of the methodArray} 

Q *• 0 + objectHeaderSize, LI * methodArray, 

otLow ► MD, CALL[otMap] {get address of method array}. 


cl; 

C2; 

c3; 


templLow + Q {point at appropriate entry of methodArray} 

*• nMpt.hnrir ArhcH inh /•* omniu h /1 _i J J 


templLow 

. _oni . ./■;—' ^ ir« lam enujr UI me i. no oh r rav > , ci. 

temp3High *• uMethodCacheHigh {temp3H1gh/Low used later to update cache} cZ- 
temp3Low uMethodCacheLow, J c3-* 


at[methodArray 


10, otMap-return]; 


Ll^r^methodBaseAfterLookup, + ° 3 ^ °° P ^ • L2 ‘ foundVI.Lookup, cl; 

otLow - MD {oop of method 1}, CALL[otMap] {to get address of new compIledMethod}. c3; 

0 - templHIgh, CALL[getNewMethodHeader], cl, at[methodBaseAfterLookup, 10, otMap-return] 

getNewMethodHeader-return]f Start eXtraCti " 9 fl88 b1tS fr ° ffl m9tbod h9ad9r >’ c2 ' ^[foundVIaLookup, 10, 
temp2Low «- temp2Low LRot4, 


temp2Low *- temp2Low and 7, 

[] <- temp2Low xor 7, ZeroBr, {could a primitive be specified?} 
tempZLow *• RShlftl (templLow and 7f) {extract the literal bits 
primitiveSpecIfied], c3; 


cl; 
c2; 

from method header}, SE «- 0, 


BRANCH[noPrimltive, 


noPrimltlve: 

temp2Low «- 0, {0 = no primitive} 

Q *- uHash {more getting ready to update cache}, 
temp3Low ► temp3Low + 0, GOTO[updateCache], 


prlmltlveSpecIfled: 


{read the method header extenstion -- next to last 
templLow +■ uNewMethodLow, 

templLow *• templLow + temp2Low {literal count}, 
templLow «- templLow + objectHeaderSize, 

literal} 

cl; 
c2; 
c3; 

templLow <- templLow - 1 , cl . 
0 *■.uHash {more getting ready to update method cache} c2 ’ 
temp3Low «• temp3Low + Q, {and more getting ready to update method cache}c3; 

MAR *- [templHigh, templLow + 0] {get method header 
templLow *■ uNewMethodHeader, 
temp2Low <■ MD, 

extension}, 

cl; 
c2; 
c3; 

temp2Low «- RShlftl temp2Low, 

temp2Low <- temp2Low and Off {the primitive flag}, 


Cl; 
c2; 

l-Aug-84 18:34:47 PDT 
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Noop, 

updateCache: 

{upon entry, temp3H1gh/Low must be address of appropriate cache entry, 
temp2Low must be primitive flag, and otLow must be oop of new method} 
MAR *■ [temp3H1gh, temp3Low + 0] {selector field}, 

MDR «* uSelector, 
temp3Low «■ temp3Low + 1, 


MAR «■ [temp3H1gh, temp3Low + 0], {class field} 
MDR «• uSt art Lookup, 
temp3Low *■ temp3Low + 1, 

MAR «- [temp3H1gh, temp3Low + 0], {method field} 
MDR «■ otLow, 

temp3Low *• temp3Low + 1, 

MAR «- [temp3H1gh, temp3Low + 0] {primitive flag} 
MDR +* temp2Low, 

Noop, 

uNewMethodOop *■ otLow, GOTO[executeNewMethod], 


c3; 


uSelector, uNewReceiversClass must both be valid. 

cl; 

c2; 
c3; 

cl; 
c2; 
c3; 

Cl; 

c2; 

c3; 

cl; 
c2; 
c3; 

cl; 


executeNewMethod: 

{upon entry, temp2Low Is the prlmitiveFlag, templLow is the methodHeader} 


L3Disp {0 -> lookup for execution, 1 -> lookup for perform primitive}, c2, at [foundVIaCache, 10, 
getNewMet hodHeade r-ret u rn]; 

RET[performGrExecute-return], c3; 


executeNewMethodViaPrimitivePerform: 

{test to see If this might be a primitive response, return self, or return of an instance variable} 

Noop, cl, at[0, 10, performOrExecute-return]; 

[] *- temp2Low, ZeroBr {any primitive specified?}, L3 *• 1, c2; 

Vbus <- templLow LRot4, XDisp, BRANCH[primitivelndexNotZero {yes}, $], c3; 


DISP4[flagTable, 1], 

{flag =0-4 and flag a 7} 

GOTO[doActIvate], 
G0T0[doAct1vate], 

GOTO[doAct1vatej, 

G0T0[doActivate], 

G0T0[doActIvate], 

G0T0[doActivate]. 


cl; 


c2, at[l, 10, flagTable]; 
c2, at[3, 10, flagTable]; 
c2, at[5, 10, flagTable]; 
c2, at[7, 10, flagTable]; 
c2, at[9, 10, flagTable]; 
c2, at[0f, 10, flagTable]; 


{flag = 5, return self} 

NextBytecode {easy, result is already on stack, do nothing}, c2, at[0b, ,10, flagTable]; 

DISPNI[bytecodes], ipLow *■ ipLow + PC16, c3; 


{flag s 6, return Instance var> 

temp3Low +■ uNewMethodHeader, c2, at[0d, 10, flagTable]; 

temp3Low temp3Low LRot8, c3; 


temp3Low *■ temp3Low and If {get offset into object}, cl; 
templHigh *- uNewRecelverHigh, c2; 
templLow •*- uNewReceiverLow, c3; 


templLow *■ templLow + temp3Low {add In receiver field offset}, cl; 
templLow i- templLow + objectHeaderSize {account for object header}, c2; 
Noop, c3; 

MAR [templHigh, templLow + 0] {read the instance variable}, cl; 
Noop, c2; 
temp3Low «• MD, G0T0[pushTemp3LowAndD1spatch], c3; 


doActivate: 

Noop, 


c3; 


activateNewMethod: 

{ok, we need to find a context to use for this send} 


templHigh <- uRumRecordHigh {get Rum record address}, cl; 
templLow *• uRumRecordLow, c2; 
Xbus <- uNewMethodHeader, XLDisp, c3; 

BRANCH[needSmal1 Context, needLargeContext, 1], cl; 


needLargeContext: 

{In our scheme, large contexts never become leaf (the reason 
being that they are profoundly unlikely to remain leaf), 
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therefore don't grab for the leaf if a large context is 
needed) 

temp3High «• makeBIgContext, 

temp3Low +■ 1argeContextSizeLessObjectHeader, 

CAUL[methodContextPlease], 

temp2High «- uRumRecordHigh, 
createlnstance-return); 
temp2Low +■ uRumRecordLow, 

Noop, 

MAR *■ [temp2H1gh, temp2Low + leafContextOopOffset], 
CANCELBR[$, 2], 
temp3Low +• MD, 

Noop, 

[] <- temp3Low xor uActiveContextOop, ZeroBr, 
BRANCH[act1veNotLeaf, activelsLeaf], 

activelsLeaf: 

MAR <- [temp2High, temp2Low + leafContextOopOff set], LI <- 
MDR «- nilPointer, CANCELBR[$, 2], LOOPHOLE[wok], 
otLow 4- MD, XDIsp, CALL[refd], 

otLow *■ uNewObject, G0T0[ readyToTravel], 


c2; 
c3; 

Cl; 

cl, at[makeBigContext, 10, 

c2; 
c3; 

cl; 

c2; 

c3; 

cl; 

C2; 

c3; 


newLargeContextSmashLeaf, cl; 
c2; 
c3; 

cl, at[newLargeContextSmashLeaf, 10, refdReturn]; . 


needSmallContext: 

{see if we can recycle the leaf context -- must not be the activeContext nor nil) 


temp3Low «- uActiveContextOop, c2; 

Noop, ^ c3; 

MAR *- [ternplHigh, templLow + leafContextOopOffset], cl; 

temp3H1gh <- makeSmallContext {return link If we instantiate), CANCELBR[$, 2], c2; 
otLow *■ MD {oop of leaf context), c3; 

[] +• otLow - temp3Low, ZeroBr, cl; 


[] 4- otLow xor nilPointer, ZeroBr, BRANCH[$, needlnstantlateSmallContext], c2; 

uNewContextOop 4 . otLow, BRANCH[haveContextW111Travel {ok, we can recycle the leaf context), instantiateSmallContext], c3; 


needInstantiateSmallContext: 

CANCELBR[instantiateSmallContext, 1], 


c3; 


instant 1ateSmallContext: 

temp3Low *■ smallContextSizeLessObjectHeader, CALL[methodContextPlease], cl; 

temp2High *■ uRumRecordHigh, cl, at[makeSmallContext, 10, 

createlnstance-return]; 

temp2Low *■ uRumRecordLow, LI *• upNewSmallContext, c2; 

[] <- otLow LRotO, XDisp, CALL[ref1], c3; 


MAR «- [temp2H1gh, temp 2 Low + leafContextOopOffset], LI 4 * downOldLeafContext, cl, at[upNewSmal!Context, 10, reflReturn]; 
MDR ♦- otLow, CANCELBR[$, 2], L00PH0LE[wok], c2; 

otLow MD, XDisp, CALL[refd], c3; 


otLow *• uNewObject, GOT0[ readyToTravel], 

activeNotLeaf: 

Noop, 

readyToTravel: 

Noop, 

uNewContextOop «- otLow, G0T0[haveContextW111Travel], 


cl, at[down01dLeafContext, 10 , refdReturn); 


cl; 


c 2 ; 
c3; 


haveContextWilITravel: 


uMakeVolatileLinkage *- makeNewContextVolat 11e, CALL[makeVolatile {for the new context}], cl; 


{start filling in the fields of the new context) 
templLow *■ templLow + senderFieldOffset, 
makeVolatile-return]; 

{and extract literal count to calculate initial pc) 

temp3Low uNewMethodHeader, 

temp3Low 4 - RShiftl (temp3Low and 7f), SE 0, 


cl, at[makeNewContextVolatile, 10, 


c 2 ; 
c3; 


MAR 4r [ternplHigh, templLow + 0] {write sender field), cl; 

MDR «- uActiveContextOop, c2; 

templLow *• uMakeVolatileLow, c3; 

temp3Low temp3Low + 11 teralStart, cl; 

temp3Low LShiftl temp3Low, SE <- 1, {LiteralCountOf[methodBase] + 1iteralStart)*2 +1), c2; 

temp3Low *- LShiftl temp3Low, SE 4- 1 , {yields smal 1 Integer) c3; 

templLow *- templLow + InstructlonPointerFieldOffset, cl; 

Noop, c2; 

Noop, c3; 
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MAR «- [templHIgh, templLow + 0] {write pc field}, cl; 

MDR «• temp3Low, c2; 

templLow <- uMakeVolatileLow, c3; 

(compute stackPoInter from temporary count of method header} 
temp3Low «- uNewMethodHeader, cl; 

temp3Low «* temp3Low LRot8, c2; 

temp3Low «- LShlftl (temp3Low and If), SE «■ 1, {yields smalllnteger} c3; 


templLow *• templLow + stackPointerFleldOffset, cl; 
Noop, c2; 
Noop, c3; 


MAR *■ [templHIgh, templLow + 0] {write stack pointer field}, cl; 
MDR *- tempSLow, c2; 
templLow <- uMakeVolatileLow, c3; 


templLow «- templLow + methodFleldOffset, 

{and start setting up for transferring the receiver & arguments from 

temp3Low «- uArgume’rttCount, 

temp2Low *• stackLow, {source limit address}. 


cl; 

the sending context to the new context} 
c2; 
c3; 


MAR *■ [templHIgh, templLow + 0] {write oop of method we are actlvatlng},cl; 
MDR *- uNewMethodOop, c2; 
templLow *■ uMakeVolatileLow, c3; 


{finish setting up for the receiver/arguments move} 

stackLow «- stackLow - temp3Low {low 16 bits of source address}, cl; 

templLow «• templLow + receiverFleldOffset {low 16 bits of destination address}, LI *• activatingMove, c2; 


{now, move the receiver and any arguments from active context to the new context, nllllng out the corresponding words of 
the active context} 

CALL[transferWords], c3; 


{now we need to adjust the stackPoInter to reflect the absence of the transferred words} 

templLow «- uArgumentCount, cl, at[activatingMove, 10, transferWords-return]; 

stackLow <- stackLow - templLow - 1, c2; 


newActlveContext: 


{well, by now 1t‘s clear that we are going to execute this send, so we may as well commit to It, and update the 
Instruction pointer} 

ipLow ipLow + PC16, c3; 


temp3Low *- uCurrentMethodLow, cl; 
temp3Low IpLow - temp3Low, {word relative plus headerSIze} c2; 
temp3Low «• temp3Low - objectHeaderSize {word relative}, c3; 

temp3Low «- LShlftl temp3Low, SE «- pcl6{byte offset into complledMethod}, cl; 
temp3Low *- temp3Low + 1 {by the book...}, c2; 
templHIgh «- uActiveContextHigh, c3; 

templLow «- uAct 1 veContextLow, cl; 
templLow ■*- templLow + InstructionPoInterFieldOffset, c2; 
temp3Low +- LShlftl temp3Low, SE +• 1, {yields smalllnteger}, c3; 

MAR <- [templHIgh, templLow + 0], {write current Instruction pointer} cl; 
MDR «- temp3Low, c2; 


templLow templLow - InstructionPoInterFieldOff set {again point at base of context}, c3; 


stackLow 'i- stackLow - templLow {relative stack offset}, cl; 

stackLow *> stackLow - stackPoInterAdjustmentFactor, c2; 

stackLow +■ LShlftl stackLow, SE 1 {yields smalllnteger}, c3; 

templLow f- templLow + stackPointerFleldOffset, cl; 

otLow «• uActiveContextOop, c2; 

Noop, c3; 

MAR *- [templHIgh, templLow + 0} {write current stack pointer}, LI «- changingAct 1 veContext, cl; 
MDR +■ stackLow, LO newContexi, c2; 

[] ♦“ otLow LRotO, XDIsp, CALL[refd] {decrease refs to actlveContext}, c3; 


CALL[fetchContextRegistersOfA1readyVolatlleContext], 

G0T0[fixupInstructlonPoInter], 
fetchContextReg 1sters-return]; 


cl, at[changingActiveContext, 10, refdReturn]; 
c3, at[newContext, 10, 


fetchContextRegIstersAndMakeContextVolat lie: 

{upon entry, uNewContextOop must be the oop of the new context. L0 Is the return linkage register} 

temp2Low <- fetchingContextReglsters, c2; 

otLow *■ uNewContextOop, c3; 

uMakeVolatlleLinkage <- temp2Low, CALL[makeVolatile] {the new context}, cl; 


fetchContextRegIstersOfAlreadyVolatlleContext: 

{upon entry, uNewContextOop must be the oop of the new context and that context must have already been made volatile. 
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thus leaving uMakeVolt11eH1gh/Low set up. LO Is the return linkage register} 


Noop, 

c2; 


Noop, 

c3; 


stackHigh *- uMakeVolatileHIgh {get base of new context}, 

cl. 

at[fetch1ngContextReg1sters, 10, 

makeVolatile-return]; 

stackLow «■ uMakeVolatlleLow, LI <- changlngActlveContext, 

c2; 


otLow *- uNewContextOop, CALLfrefl], 

c3; 


temp2H1gh +■ uRumRecordHIgh, 

cl. 

at[chang1ngAct1veContBXt, 10, reflReturn]; 

temp2Low *- uRumRecordLow, 

c2; 


templLow uMakeVolatlleLow, 

c3; 



MAR *■ [temp2High, temp2Low + actlveContextOopOffset] {write new active context oop}, cl; 
uActlveContextOop <* MDR <- otLow, CANCELBR[$, 2], L00PH0LE[wok], c2; 

0 «■ templHigh *• uMakeVolatileHIgh, c3; 


templLow *■ templLow + methodFieldOffset, cl; 
uActlveContextHigh «- Q, c2; 
uActiveContextLow «- stackLow, c3; 


{see If this Is a method or block context, odd method field implies blockcontext} 
MAR [templHigh, templLow + 0], cl; 

templLow +■ templLow - methodFieldOffset {again point at base of object},c2; 
ipLow «- MD, XDisp, c3; 

IBPtr «- 1 {start draining any buffered bytecodes}, BRANCH[isMethodContext, 

IsMethodContext: 

{for methodContexts, the home is the active context} 

Noop, 

GOTO[saveHomeContextStuff], 

IsBlockContext: 

{we need to know the blockContext’s home, get it and make It volatile, 
base of the home context} 
templLow +- templLow + homeFleldOffset, 

Noop, 


MAR *■ [templHigh, templLow + 0], 
templLow «- home, 

otLow «* MD {the block context's home}, 

uMakeVolatlleLinkage «* templLow, CALL[makeVolatile], 

templLow *■ templLow + methodFieldOffset. 

Noop, 

Noop, 


IsBlockContext, Oe], cl; 


c2; 
c3; 


As a side effect of volatilization, we get the 

c2; 
c3; 

cl; 
c2; 
c3; 

cl; 

cl, at[home, 10, makeVolatile-return]; 

c2; 

c3; 


MAR «- [templHigh, templLow + 0] {read oop of method for homeContext} cl; 
templLow *• templLow - methodFieldOffset {again point at base of home context}, c2; 
IpLow <- MD {oop of method}, c3; 

saveHomeContextStuff: 

homeHIgh *- uMakeVolatileHIgh, cl; 

homeLow *■ templLow, c2; 

Q «• templLow, c3; 

uHomeLow Q, cl; 

temp2High ♦- uRumRecordHigh, c2; 

temp2Low uRumRecordLow, c3; 

MAR *- [temp2High, temp2Low + currentMethodOopOffset], cl; 

MDR «- ipLow {record the new context oop},CANCELBR[$, 2], L00PH0LE[wok], c2; 

Ybus «• ib {finish draining buffered bytecodes}, c3; 

MAR «- [temp2High, temp2Low + homeContextOopOffset], cl; 

MDR «- otLow {record the new home oop},CANCELBR[$, 2], LOOPHOLE[wok], c2; 

templLow templLow + recelverFleldOffset, c3; 

MAR «> [templHigh, templLow + 0] {read receiver field} cl; 

templLow homeLow, c2; 

otLow +■ MD {receiver oop}, c3; 

MAR «- [temp2H1gh, temp2Low + receiverOopOffset] {write receiver field In Rum record}, 
MDR otLow, CANCELBR [$, 2], L00PH0LE[wok], c2; 

[] <- otLow LRotO, XDisp, c3; 

uRecelverOop *■ otLow, BRANCH[newReceiverIsOop, newReceiverlsSmal1, Oe], cl; 


newReceiverlsOop: 

LI «- recelverDurlngFetch, 

CALL[otMap2], 

Q *■ templHigh, 
uReceiverHIgh *- Q, 
uReceiverLow <■ 0 op templLow, 

Noop, 

newReceiverlsSmal1: 

{get relative stack pointer for this context} 

stackLow +- stackLow + stackPoInterFleldOffset, 
Noop, 


c2; 
c3; 

cl, at[recelverDuringFetch, 10, otMap2-return]; 

c2; 

c3; 

cl; 


c2; 

c3; 
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MAR [stackHigh, stackLow + 0], cl; 
stackLow 4 . uAct 1veContextLow, c2; 
temp2Low *• MD {relative stack pointer represented as smalllnteger}, c3; 

temp2Low +■ RShiftl temp2Low {de-smal lintegerize}, SE «- 0, cl; 
Noop, c2; 
stackLow 4* stackLow + InstructionPointerFieldOffset, c3; 

MAR «- [stackHlgh, stackLow + 0] {get instruction pointer from context}, cl; 
stackLow +• uActlveContextLow, c2; 
temp3Low +■ MD {relative instr ptr represented as smalllnteger), c3; 


stackLow +■ stackLow + temp2Low, 

stackLow i- stackLow + stackPoInterAdjustmentFactor, LI 
otLow «- IpLow {oop of method}, CALL[otMap2], 

0 templHIgh, 
uCurrentMethodHigh 4- Q, 
uCurrentMethodLow «- templLow, 


cl; 

methodDurlngFetch, c2; 
c3; 

cl, at[methodDuringFetch, 10, otMap2-return]; 
c2; 
c3; 


temp3Low +■ RShiftl temp3Low, SE «- 0 {de smallXntegerlze}, cl; 
temp3Low temp3Low - 1 {by the book...}, c2; 
ipHIgh «- Q LRotO, c3; 

ipLow 4- templLow + objectHeaderSize, LODisp, cl; 
RET[fetchContextRegiste rs-retu rn], c2; 


methodContextPI ease: 

{upon entry, temp3High must be the return linkage for instance creation, temp3Low is the size context desired, create 

instance returns directly to methodContextPlease*s caller} 

otLow 4 - methodContextClassOop, c2 ; 

uClassToInstantiate <- otLow, CALL[createInstanceWithPointers], c3; 
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dl: GOTOfbal1out3], at[3,10,getNewMethodHeader-return], c 2 ; 
d 2 : GOTOfballout3], at[4,10,getNewMethodHeader-return], c2; 
d3: G0T0fba11out3], atfb, 10 ,getNewMethodHeader-return], c 2 ; 
d4: GOTO[baiTouts], at[6,10,getNewMethodHeader-return], c2; 
db: GOTOfballout3], atf7,10,getNewMethodHeader-return], c2; 
d6: GOTOfbailout3], at[6,10,getNewMethodHeader-return], c2; 
d7: GOTOfbailout3], atf9,10.getNewMethodHeader-return], c2; 
d8: G0T0[bailout3], at[0a,10,getNewMethodHeader-return], c2; 
d9: GOTOfba11out3], atfoh,10,getNewMethodHeader-return], e 2 ; 
dlO: G0T0[bailout3], atfOc, 10 ,getNewMethodHeader-return], c2; 
dll: GOTOfbailout3], atfOd,10,getNewMethodHeader-return], c2; 
dl2: G0T0[ba11out3], atfOe,10,getNewMethodHeader-return], c2; 
dl3: G0T0[ba11out3], at[0f,10,getNewMethodHeader-return], c2; 


dl6: GOTOfballout2], atfl,10,getDeltaWord-return], cl; 
dl6: GOTOfballout2], at[2,10.getDeltaWord-return], cl; 
dl7: GOTOfbailout2], at[3,10,getDeltaWord-return], cl; 
dl8: GOTOfballout2], at[4,10,getDeltaWord-return], cl; 
dl9: GOTOfballout2], at[5,10,getDeltaWord-return], cl; 
d 20 : G0T0fba11out2], at[6,10.getDeltaWord-return], cl; 
d21: GOTOfba11out2], at[7,10,getDeltaWord-return], cl; 
d22: GOTOfbailout 2 ], at[8,10,getDeltaWord-return], cl; 
d23: G0T0fba11out2], at[9,10,getDeltaWord-return], cl; 
d24: G0T0fbailout2], atfOa,10,getDeltaWord-return], cl; 
d25: GOTO[bailout 2 ], atfob,10,getDeltaWord-return], cl; 
d26: G0T0[bailout2], atfOc,10,getDoltaWord-return], cl; 
d27: G0T0fbai1out2], atfOd,10,getDeltaWord-return], cl; 
d28: G0T0[ballout2], at[0e,10,getDeltaWord-return], cl; 
d29: G0T0fba11out2], atfof,10,getDeltaWord-return], cl; 


d41: G0T0[ballout2], at[0d,10,refdReturn], cl; 
d42: G0T0fbailout2], at[0e,10,refdReturn], cl; 
d43: GOTOfba11out2], atfof ,10,refdReturn], cl; 


d86: G0T0[bailout2], at[8,10,refIReturn], cl; 
d67: G0T0fbailout2], atf9,10,refiReturn], cl; 
d58: GOTOfbailout2], atfoa,10,refIReturn], cl; 
d59: G0T0[ba11out2], atfob,10,refiReturn], cl; 

d 81 ; GOTO[ba11out2], at[0d,10,refIReturn], cl; 
d62: GOTOfba11out2], at[0e,10,refIReturn], cl; 
d63: G0T0[bailout2], atfof,10,refiReturn], cl; 


dlOO: G0T0fba11out3], atfsmallMultlply.lO.arithmetlcPrlmltlves], c2; 
dlOl: G0T0[bailout3], atfsmallDIvIde.lO.arithmetlePrimltlves] c 2 - 
dl 02 : GOTOfbailout3], atfsmallMod.lO.arithmeticPrimltives], c 2 ; 

{dl04: GOTOfballout3], atfsroanB1tSh1ft,10,ar1thmet1cPrimit1ves], c 2 
dl05: G0T0fbailout3], atfsmallDiv.lO.arlthmetlcPrfmltlves], c2; 


d88: G0T0[ba11out2], at[0a,lO.getClass-return], cl; 
d89: G0T0fbailout2], atfOb,10,getClass-return], cl; 
d90: GOTOfbailout2], atfOc,10,getClass-return], cl;' 
d91: GOTOfbailout2], at fod ,10,getClass-return], cl; 
d92: GOTOfbailout 2 ], atfoe,lO.getClass-return], cl; 
d93: G0T0[ba11out2], atfof,10,getClass-return], cl; 


d202: G0T0fba11out2], at[3, 10, addToZeroCountTableReturn], cl; 
d203: G0T0[bailout2], at[4, 10 , addToZeroCountTableReturn] cl 1 
d204: G0T0[bailout2], at[5, 10, addToZeroCountTableReturn], cl; 
d205: GOTOfbal1out 2 ], atf6, 10, addToZeroCountTableReturn], cl; 
d206: G0T0fbailout2], atf7, 10 , addToZeroCountTableReturn], cl; 
d207: G0T0fba11out2], atf8, 10, addToZeroCountTableReturn], cl; 
dZ08: GOTOfballout2], atfs, 10, addToZeroCountTableReturn], cl; 
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d209: GOTOfbailoutl], at[Oa, 10, addToZeroCountTableReturn], cl; 
d210: GOTOfbailout2], atfOb, 10, addToZeroCountTableReturn], cl; 
d211: G0T0fbailout2], atfOc, 10, addToZeroCountTableReturn], cl; 
d212: G0T0[ba11out2], atjod, 10 , addToZeroCountTableReturn], cl; 
d213: GOTOfbailout2], atfOe, 10, addToZeroCountTableReturn], cl; 
d214: G0T0[bailout2], atfOf. 10, addToZeroCountTableReturn], cl; 


d302: GOTOfbailoutl], at[3, 10 , smalItalkState], c3; 
d303: GOTOfbailoutl], at[4, 10, smalltalkState], c3; 
d304: GOTOfbailoutl], atf5, 10, smalltalkState], c3; 
d305: GOTOfbailoutl], at[6, 10, smalItalkState], c3; 
d306: G0T0[bailoutl], at[7, 10, smalItalkState], c3; 
d307: GOTOfbai1outl], at[8, 10, smalltalkState], c3; 
d308: G0T0[bo1loutl], at[9, 10, smalltalkState], c3; 
d309: G0T0[bailoutl], atfOa, 10, smalltalkState], c3; 
d310: GOTOfbailoutl], at[0b, 10, smalltalkState], c3; 
d311: GOTOfbailoutl], atfOc, 10, smalltalkState], c3; 
d312: GOTOfbailoutl], at[0d, 10, smalltalkState], c3; 
d3l3: GOTOfbailoutl], atfOe, 10, smalltalkState], c3; 
d314: G0T0[bailoutl], atfOf, 10, smalltalkState], c3; 


d329a,- G0T0[bailout2], atfl,10,returnTopOfStack-return], cl; 
d330: GOTOfbailoutZ], at[2,10,returnTopOfStack-return], cl; 
d33l: GOTOfbai1out2], at[3,10,returnTopOfStack-return], cl; 
d332: G0T0[bai1out2], at[4, 10 ,returnTopOfStack-return], cl; 
d333: GOTOfbailout 2 ], at[5,10,returnTopOfStack-return], cl; 

d335; G0T0[bailout2], atf7,10,returnTopOfStack-return], cl; 
d336: G0T0[bailout2], at[8,10,returnTopOfStack-return], cl; 
d337: G0T0{bailout2], at[9,10,returnTopOfStack-return], cl; 
d338: G0T0[ba11out2], at[0a,10,returnTopOfStack-return], cl; 
d339: GOTO[bailout 2 ], at[0b,10,returnTopOfStack-return], cl; 
d340: G0T0[ba1lout2], at[0c,10,returnTopOfStack-return], cl; 
d34l: G0T0[ba11out2], at[0d,10,returnTopOfStack-return], cl; 
d342: G0T0[ba11out2], at[0e,10,returnTopOfStack-return], ci; 


d404: G0T0[bailout2], at[4, 10, makeVolatlle-return], cl; 
d406: G0T0[bai1out2], at[6, 10, makeVolatlle-return], cl; 
d408: G0T0[ba11out2], at[8, 10, makeVolatlle-return], cl; 
d40a: G0T0[bailoutZ], at[()a, 10, makeVolatlle-return], cl; 
d4l2: G0T0[bailout 2 ], at[0c, 10, makeVolatlle-return], cl; 
d413: G0T0[ba1lout2], et[0d, 10, makeVolatlle-return], cl; 
d4l4: GOTOfbailout 2 ], at[0e, 10, makeVolatlle-return]cl; 
d4l5r GOTOfbailout2], at[0f, 10, makeVolatile-return], cl; 


d503: GOTO[bailout2], at[3; 
d604: G0T0fbailout2], at[4, 
d505: G0T0[bailout2], at[6, 
d506: G0T0[ba11out2], atfe, 
d607: GOTOfbailout2], at[7, 
d508: GOTOfbai1out2], at[8, 
d509: GOTOfbailout2], atf9, 
d510: GOTOfbailout2], at[0a, 
dfill: GOTOfbailout2], atfOb, 
d512: GOTOfbailout2], atfOc, 
d513: GOTOfbai1out2], at[0d, 
d514: GOTOfbailout2], atfOe, 
d516: GOTOfbailoutZ], atfOf, 


10, transferWords-return], cl; 
10, transferWords-return], cl; 
10 , transferWords-return], cl; 
10, transferWords-return], cl; 
10 , transferWords-return], cl; 
10, transferWords-return], cl; 
10, transferWords-return], cl; 
10 , transferWords-retufnj, cl 
10 , transferWords-return], cl 
10 , transferWords-return], cl 
10, transferWords-return], cl 
10, transferWords-return], cl 
10, transferWords-return], cl 


{d61c: GOTOfbailout2], atfOc, 10, otMap2-return], cl;} 
d61e: G0T0fbanout2], atfOe, 10, otMap2-return], cl; 
d615: GOTOfbailout2], atfOf, 10, otMap2-return], cl; 


d700: GOTOfbailout2], at[0, 10, 
d703: GOTOfbai1out2], at[3, 10, 
d704: GOTOfbai!out2], at[4, 10, 
d705: GOTOfbailout2], atf5, 10 , 
d706: GOTOfbai1out2], atf6, 10, 
d707 : GOTOfbailout2], atf7, 10, 
d708: GOTOfbai1out2], at[8, 10, 
d709: GOTOfbailout2], at[9, 10 , 
d7l0: GOTOfbai1out2], atfOa, 10, 
d711; GOTOfbai1out2], atfOb, 10, 
d712: GOTOfbailoutZ], atfOc, 10, 
d713: GOTOfbai1out2], atfOd, 10, 
d714: GOTOfbailout2], atfOe, 10, 
d715: GOTOfbailout2], atfOf, 10, 


lastPointerOf-return], cl; 
TastPointerOf-return], cl; 

1astPointerOf-return], cl; 
lastPointerOf-return], cl; 
TastPointerOf-return], cl; 

1astPointerOf-return], cl; 
lastPointerOf-return], cl; 
lastPointerOf-return], cl; 
lastPointerOf-return], cl; 
lastPointerOf-return], cl; 
lastPointerOf-return], cl; 
lastPointerOf-return], cl; 
lastPointerOf-return], cl; 
lastPointerOf-return], cl; 


d802: GOTOfbailoutl], at[2, 10, fetchContextRegisters-return], c3; 
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d803: GOTOfbailoutl], at[3, 10, fetchContextReglsters-return], c3; 
d804: GOTOfbailoutl], at[4, 10, fetchContextReglsters-return], c3; 
d805: GOTOfbailoutl], at[6, 10 , fetchContextReglsters-return], c3; 
d806: G0T0[banoutl], at[6, 10, fetchContextRegisters-return], c 3 ; 
d807: GOTOfbailoutl], at[7, 10 , fetchContextRegisters-return], c3; 
d808: GOTOfbailoutl], at[8, 10, fetchContextRegisters-return], c3; 
d809: GOTOfbai1outl], at[9, 10 , fetchContextRegisters-return], c3; 
d810: GOTOfbailoutl], at[0a, 10, fetchContextRegisters-return], c3; 
d 811 : GOTOfbailoutl], atfOb, 10, fetchContextRegisters-return], c3; 
d812: G0T0[bailoutl], atfOc, 10, fetchContextRegisters-return], c3; 
d813: GOTOfbailoutl], atfOd, 10, fetchContextRegisters-return], c3; 
d8l4: GOTOfbailoutl], atfOe, 10, fetchContextRegisters-return], c3; 
d815: GOTOfbailout 1 ], at[0f, 10, fetchContextRegisters-return], c3; 


d903: GOTOfbailout2], at[3, 
d904: GOTO[bai1out2], at[4, 
d905: G0T0fballout2], at[6, 
d906: GOTO[bailout2], at[6, 
d907: GOTOfbailout2], at[7, 
d908: GOTOfbailout2], at[8, 
d909: GOTOfbai1out2], at[9, 
d910: GOTOfbailout2], atfOa, 
d9ll: GOTOfbailout2], atfOb, 
d912: GOTOfbailout2], atfOc, 
d913: GOTOfbai1out2], atfOd, 
d914: GOTOfbailout2], atfOe, 
d915: GOTOfbai1out2], atfOf, 


10, nextFreeChunk-return], cl; 
10 , nextFreeChunk-return], cl; 
10 , nextFreeChunk-return], cl; 
10 , nextFreeChunk-return], cl; 
10, nextFreeChunk-return], cl; 
10, nextFreeChunk-return], cl; 
10 , nextFreeChunk-return], cl; 
10, nextFreeChunk-return], cl; 
10, nextFreeChunk-return], cl; 
10 , nextFreeChunk-return], cl; 
10, nextFreeChunk-return], cl; 
10 , nextFreeChunk-return], cl; 
10, nextFreeChunk-return], cl; 


d956: GOTOfbai1out2], at[6, 
d957: GOTOfbailout2], atf7, 
d958: GOTOfbailout2], atf8, 
d969: G0T0fbailout2], at[9, 
d960: GOTOfbai1out2], atfOa, 
d961: GOTOfbailout2], atfOb, 
d962; GOTOfbailout2], atfOc, 
d963: GOTOfbai1out2], atfOd, 
d964: G0T0[banout2], atfOe, 
d965: GOTOfbailout2], atfOf, 


10, createlnstance-return], cl;' 
10, createlnstance-return], cl; 
10, createlnstance-return], cl; 
10, createlnstance-return], cl; 
10, createlnstance-return], cl; 
10 , createlnstance-return], cl; 
10, createlnstance-return], cl; 
10, createlnstance-return], cl; 
10, createlnstance-return], cl; 
10, createlnstance-return], cl; 


d977: 
d978: 
d9 79: 
d980: 
d981: 
d982: 
d983: 
d984: 
d986: 


bailout2], 
bailout2], 
bailout2], 
bailout2], 
bailout2], 
bailout2], 
GOTOfbailout2], 
GOTOfbailout2], 
GOTOfbai1out2], 


GOTO| 

GOTO) 

GOTO] 

GOTO 

GOTO 

GOTO 


at[7, 10, 
atf 8, 10, 
atfS, 10, 
atfOa, 10, 
atfOb, 10, 
atfOc, 10. 
atfOd, 10, 
atfOe, 10, 
atfOf, 10, 


pos1tivel6BitVa1ueOf-return], cl; 
positivel6BitValueOf-return], cl; 
positivel6BitVa1ue0f-return], cl; 
posit1vel6BitValueOf-return], cl; 
positivelGBitValueOf-return], cl; 
posit1vel6Bit\/al ueOf-return], cl; 
positivel6BitVa1ue0f-return], cl; 
posIt1vel6BitValueOf-return], cl; 
posit1vel6BitVa1ue0f-return], cl; 


dl004: G0T0fbanout3], at[4, 
dl005: GOTOfbai1out3], atfb. 
dl006: GOTOfbailout3], at[6, 
dl007: GOTOfbailout3], at[7, 
dl008: GOTOfbailout3], atffl, 
dlOQ9: GOTOfbailout3], at[9, 
d1010: GOTOfbailout3], atfOa, 
d101 1 : GOTOfba1lout3], atfOb, 
dl012: GOTOfbailout3], atfOc, 
dl013: GOTOfbailout3], atfOd, 
dl014: GOTOfbailout3], atfOe, 
dl0l5: GOTOfbailout3], atfOf, 


10, fixedFieldsOf-return], c2; 
10, fIxedFieldsOf-return], c2; 
10, fixedFieldsOf-return], c2; 
10 , fixedFieldsOf-return], c2; 
10, fixedFieldsOf-return], c2; 
10, fixedFieldsOf-return], c2; 
10, fixedFieldsOf-return], c2; 
10, fixedFieldsOf-return], c2; 
10, fixedFieldsOf-return], c2; 
10, fixedFieldsOf-return], c2; 
10, fixedFieldsOf-return], c2; 
10, fixedFieldsOf-return], c2; 


dl021: GOTOfba11out2], at[l, 10, getTos-return], cl; 
dl022: GOTOfba1lout2], at[2, 10, getTos-return], cl; 
dl023: GOTOfbailout2], atf3, 10, getTos-return], cl; 
dl024: GOTOfbailout2], atf4, 10, getTos-return], cl; 
dl025: GOTOfbailout2], at[0, 10, getTos-return], cl; 
dl026: GOTOfbailout2], atf6, 10, getTos-return], cl; 
dl027: GOTOfbailout2], at[7, 10, getTos-return], cl; 
dl028: GOTOfbailout2], atf8, 10, getTos-return], cl; 
dl029: GOTOfbailout2], at[9, 10, getTos-return], cl; 
dl030: GOTOfba11out2], atfOa, 10, getTos-return], cl; 
dl031: GOTOfbailout2], atfOb, 10, getTos-return], cl; 
dl032: GOTOfbailout2], atfOc, 10, getTos-return], cl; 
dl033: GOTOfbai1out2], atfOd, 10, getTos-return], cl; 
dl034: GOTOfbailout2], atfOe, 10, getTos-return], cl; 
dl035: GOTOfbailout2], atfOf, 10, getTos-return], cl; 
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dl041: G0T0[bailout2], ®t[l, 
dl042: G0T0[bailout2], at[2, 
dl043: G0T0[bailout2], at[ 3 , 
d!044: G0T0[bailout2], at[ 4 , 
dl045: G0T0[bailout2], at[ 5 , 
dl046: G0T0[ba1lout2], at[ 6 , 
dl047: GOTQ[bailout 2 ], at[ 7 , 
dl048: GOTO[bailout 2 ], at[ 8 , 
dl049: G0T0[bailout2], at[ 9 , 
dl050: G0T0[ba11out2], at[ 0 a, 
dl051: GOTO[bailout2], atfob, 
dl052: GOTO[bailout 2 ], at[0c, 
dl053: G0T0[bailout2], at[ 0 d, 
dl054: GOTO[ba11out2], at[ 0 e t 
dl056: G0T0[ba11out2], at[ 0 f. 


10 , getSmashTos-return], cl; 
10 , getSmashTos-return], cl; 
10 , getSmashTos-return], cl; 
10 , getSmashTos-return], cl; 
10 , getSmashTos-return], cl; 
10 , getSmashTos-return], cl; 
10 , getSmashTos-return], cl; 
10 , getSmashTos-return], cl; 
10 , getSmashTos-return], cl; 
10 , getSmashTos-return], cl; 
10 , getSmashTos-return], cl; 
10 , getSmashTos-return], cl; 
10, getSmashTos-return], cl; 
10 , getSmashTos-return], cl; 
10 , getSmashTos-return], cl; 


dl067: G0T0[ba11out2], 
dl068: G0T0[ba11out2], 
dl069: GOTO[bailout 2 ], 
dl080: G0TO[bailout2], 
dl081: G0T0[bailout2], 
dl 082 : G 0 T 0 [bailout 2 ], 
dl083 : G0T0[ba11out2], 
dl084: G0T0[bailout2], 
d!085 : G0T0[bailout2], 


at[ 7 , 10 , addToFreeChunkLIst-return], cl; 
at[ 8 , 10 , addToFreeChunklist-return], cl; 
at[ 9 , 10 , addToFreeChunkLIst-return], cl; 
at[ 0 a, 10 , addToFreeChunkList-return], cl 
al;[ 0 b, 10 , addToFreeChunkList-return], cl 
at;[Gc, 10 , addToFreeChunkLIst-return], cl 
at.[ 0 d, 30, addToFreeChunkList-return], cl 
at[ 0 e, 10 , addToFreeChunkLIst-return], cl 
at[ 0 f, 10 , addToFreeChunkLIst-return], cl 


dllOl: G0T0[ba11out2], at[l, 
dll 02 : G0T0[ba1lout2], at[ 2 , 
dll03: G0T0[ba1lout2], at[3 
dl 104 : G0T0[bailout2], at[ 4 , 
dll05: GOTO[bailout 2 ], at[ 6 , 
dll06: G0T0[bai1out2], at[ 6 , 
dl107: G0TO[bailout 2 ], at[7, 
dllll: G0T0[bailout 2 ], at[ 8 , 
dll09: GOTO[ba11out2], at[9, 
dlllO: G0T0[ba11out2], at[0a, 
dll 2 l: GOTOfbailout 2 ], at[ 0 b, 
dll 22 : G0T0[ba11out2], at[ 0 c, 
dll23: GOTO[bailout 2 ], at[0d, 
dll24: G 0 T 0 [ba 11 out 2 ], at[ 0 e, 
dll2fi: GOTO[bailout 2 ], at[ 0 f, 


10 , deallocate-return], cl; 
10 , deallocate-return], cl; 
10 , deallocate-return], cl; 
10 , deallocate-return], cl; 
10 , deallocate-return], cl; 
10 , deallocate-return], cl; 
10 , deallocate-return], cl; 
10 , deallocate-return], cl; 
10 , deallocate-return], cl; 
10 , deallocate-return], cl; 
10 , deallocate-return], cl; 
10 , deallocate-return], cl; 
10 , deallocate-return], cl; 
10 , deallocate-return], cl; 
10 , deallocate-return], cl; 


dll32: 
dll33: 
(11134: 
dll35: 
dl136: 
dll37: 
dll38: 
dll39: 
dll3a: 
dll3b: 
dll3c: 
dll3d: 
dll3e: 
dll3f: 


G0T0[ba11out2], 
G0T0[ba11outZ], 
G0T0[bailout 2 ], 
GOTO[ba11out2], 
G0T0[ba11out2], 
GOTOfballout2], 
G 0 T 0 [ba 11 out 2 ], 
G0T0[ba11out2], 
[ballout 2 ], 
[ba 11 out 2 ], 
[ba 11 out 2 ], 
‘ba 11 out 2 ], 
ballout 2 ], 
ballout 2 ], 


GOTOj 

GOTO] 

GOTOj 

GOTO) 

GOTO| 

GOTO 


at[ 2 , 10 , 
at[3, 10, 
at[4, 10, 
at[5, 10 . 
at[ 6 , 10 , 

7 , 10 , 

8 , 10 , 
[ 9 , 10 , 

0 a, 10 , 
0 b, 10 , 


at[ 0 c, 10 , 


Od, 10, 
0 e, 10 , 
Of, 10 , 


stabllize-return], cl; 
stabl 1 ize-return], cl; 
stabill 2 e-return], cl; 
stabilize-return], cl; 
Stab11l2e-return], cl; 
stabi 1 ize-return], cl; 
stabllize-return], cl; 
stabllize-return], cl; 
stabllize-return], cl; 
stabllize-return], cl; 
stabilIze-return], cl; 
stabilize-return], cl; 
stabilIze-return], cl; 
stabllize-return], cl; 


dll46: G0T0[bailout 2 ], at! 
dl! 47 : G 0 T 0 [bailout 2 ], at, 
dll48: G0T0[bailout2], atl 
dl149: G0T0[bailout2], at| 
dll 4 a: GOTO[bailout 2 ], at| 
dll 4 b: G0T0[bailout2], at| 
dll4c: GOTO[bailout 2 ], atl 
dl14d: GOTOfbailout2], at( 
dl44e: G0T0[ba1lout2], at[ 
dl 14f : GOTO[bailout 2 ], at[ 


[B, 

[ 7 . 

«. 
0 , 
0a , 
0 b, 
0 c, 
Od, 
Oe, 
Of, 


10 , getObjectSIze-return], cl; 
10, getObjectSize-returnJ, cl; 
10 , getObjectSIze-return], cl; 
10 , getObjectSize-return], cl; 
10 , getObjectSize-return], cl; 
10 , getObjectSize-return], cl; 
10 , getObjectSize-return], cl; 
10 , getObjectSize-return], cl; 
10 , getObjectSize-return], cl; 
10 , getObjectSize-return], cl; 



dll 61 ; G0T0[bailoutl], at[l, 10 , getByteOrAddress-return], c3; 


dll64: GOTO[bailoutl], at[ 4 , 
dll65: G0T0[bailoutl], at[ 5 , 
dll56: G0T0[bailoutl], at[ 6 , 
dll57: G0T0[bailoutl], at[ 7 , 
dll58: GOTO[bailoutl], at[ 8 , 
dll59: GOTO[bailoutl], at[ 9 , 
dll5a: GOTO[bailoutl], at[ 0 a, 
dll5b: GOTO[bailoutl], at[ 0 b, 
dll 6 c: GOTO[bailoutl], at[ 0 c, 
dl 15d: GOTO[bailoutl], ,at[0d, 


10 , getByteOrAddress-return], c3; 
10 , getByteOrAddress-return], c 3 ; 
10 , getByteOrAddress-return], c3; 
10 , getByteOrAddress-return], c 3 ; 
10 , getByteOrAddress-return], c3; 
10 , getByteOrAddress-return], c 3 ; 
10, getByteOrAddress-return], c 3 ; 
10 , getByteOrAddress-return], c 3 ; 
10 , getByteOrAddress-return], c 3 ; 
10 , getByteOrAddress-return], c3; 
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dll5e: G0T0[ba11outl], atfOe, 10, getByteOrAddress-return], c3; 
oll5f: GOTO[banoutl], atfOf, 10, getByteOrAddress-return], c3; 


dll63: GOTOfbailout 2 ], et[3, 10, commonAt-return], cl; 
dll64: GOTOfbai1out2], at[4, 10 , commonAt-return], cl; 
dll65: GOT0[bailout?],. et[5, 10, commonAt-return], cl; 
dll6G: GOTO[bailout2], at[6, 10, commonAt-return], cl; 
dll67: G0T0[ba1lout2], atf7, 10, commonAt-return], cl; 
dll68: GOTOfba11out2], at[8, 10, commonAt-return], cl; 
dll69: GOTOfbailout2], at[9, 10, commonAt-return], cl; 
dll6a: GOTO[bailout2], at[0a, 10, commonAt-return], cl; 
dll6b; GOTOfbailoutZ], at[0b, 10, commonAt-return], cl; 
dll6c: GOTOfbailout2], atfOc, 10 , commonAt-return], cl; 
dll6d: GOTOfbailout2], atfOd, 10, commonAt-return], cl; 
dllGe: GOTOfba11out2], atfOe, 10, commonAt-return], cl; 
dll6f: GOTO[bailout 2 ], at[ 0 f, 10, commonAt-return], cl; 

dll72: GOTOfbai 1 out 2 ], atf2, 10 , performOrExecute-return], cl- 
dll73: GOTOfbai1out2], atf3, 10, performOrExecute-return], cl; 
d!174: GOTOfbailout 2 ], at[4, 10, performOrExecute-return], cl; 
dll76: GOTO[bai"lout 2 ], at[5, 10, performOrExecute-return], cl; 
dll76: GOTOfba11out2], at[6, 10, performOrExecute-return], cl; 
dll77: GOTOfbailout2], at[7, 10, performOrExecute-return], cl; 
dll78: GOTOfbailout 2 ], atf8, 10 , performOrExecute-return], cl; 
dl!79: GOTOfbailout 2 ], at[9, 10 , performOrExecute-return], cl; 
dll7a: GOTOfbailout2], atfOa, 10, performOrExecute-return], cl; 
dll7b: GOTOfbailout 2 ], atfOb, 10, performOrExecute-return], cl* 
dll7c: GOTOfbailout2], atfOc, 10 , performOrExecute-return], cl; 
dll7d: GOTOfbailout2], atfOd, 10 , performOrExecute-return], cl; 
d!17e: GOTOfbailout2], atfOe, 10 , performOrExecute-return], cl; 
dll7f: GOTOfbailout2], atfOf, 10 , performOrExecute-return], cl; 


bailout2: 

Noop, 

bailout3: 

Noop, 

bailoutl: 

temp2H1gh uRumRecordHigh, 
temp2Low *- uRumRecordLow, 
Noop, 


c2 

c3 


cl 

c2 

c3 


MAR «- ftemp2High, temp2Low + directlveOffset], 
MDR *• 2, CANCELBR f$, 2], LOOPHOLE [wok], 

GOTOf I’estoreMesaState], 


cl 

c2 

c3 


sigh.me 
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getSmalltalkState: 

0 *■ uRumRecordHlgh {retrieve the Rum Record address}, 
temp3High <- Q LRotO, 
temp3Low «- uRumRecordLow, 

{get the method cache address} 

MAR <• [temp3High, temp3Low + methodCacheLowOffset 1. 
CANCELBR[$, 2], Noop, 

0 «• MD, 

MAR [temp3H1gh, temp3Low + methodCacheHighOffset], 
CANCEL8R[$, 2], uMethodCacheLow <- Q, 

Q ♦- MD, 

{get the Object Table address} 

MAR <- [ temp3H1gh, temp3Low + objectTableHighOffset] , 
CANCELBR[$, 2], uMethodCacheHigh *■ Q, 
otHigh «- MD, 

{get the oop of the active context, otmap It, save oop and 
MAR *• [temp3H1gh, temp3Low + actlveContextOopOffset], 

LI *- gettingActiveContextDuringlnterpreterSwap, 
CANCELBR£$, 2], 
otLow - MD, CALL[otMap2], 

0 <- templHigh, 

10, otMap2-return]; 
uActiveContextHigh +• Q, 

0 «* templLow, 

uActIveContextLow «- Q, 

0 «* otLow, 

uActiveContextOop <- Q, 

{get current Stack Pointer} 

MAR <- [tempdHIgh, temp3Low + stackPoInterlowOffset], 
CANCELBRf$, 2], Noop, 
stackLow <- MD, 

MAR <- [temp3High, temp3Low + stackPointerHIghOffsetl. 
CANCELBRf $, 2], Noop, 
stackHigh «* MD, 

{get Home Context Oop, otMap It, save its address} 

MAR <- [temp3High, temp3Low + homeContextOopOffset], LI «- 
CANCELBR[$, 2], 
otLow <- MD, CALLfotMap], 

uHomeLow *- templLow, 

Q templHigh, 
homeHIgh <- Q LRotO, 


cl; 
c2; 
c3; 


cl; 
c2; 
c3; 

cl; 
c2; 
c3; 


cl; 

C2; 

C3; 

base address} 

cl; 

C2; 
c3; 

cl, at[gettingAct1veContextDuringInterpreterSwap, 

c2; 
c3; 

cl; 
c2; 
c3; 


cl; 
c2; 
c3; 

cl; 
c2; 
c3; 


gettlngSmalltalkState, cl; 
c2; 
c3; 

cl, at[gett1ngSmalItalkState, 10, otMap-return]; 
c3; 


{get the oop of current receiver, save It and If it is not a Smalllnteger, otMap it and save its address > 
MAR «■ [temp3H1gh, temp3Low + receiverOopOffset], cl- 

raiion nnr» <n ._■ .. ... -* v * • 


CANCELBR[$, 2], 
otLow «- MD, 


homeLow <- uHomeLow, 


c2; 
c3; 


uTimeToStablllze 0, 
uRecelverOop «- otLow, YDIsp, 

BRANCH[1sOop-getSmalItalkState, IsSmal1-getSmalltalkState, Oe], 

isOop-getSmalltalkState: 

LI <- IsOopGettlngSmalltalkState, 

Noop, 

CALLfotMap], 

Q *• templHigh, 
otMap-return]; 
uReceiverHigh «- Q, 

0 *- templLow, 


cl; 
c2; 
c3; 


cl; 

C2; 

c3; 

cl, at[IsOopGett1ngSmalItalkState, 10 , 

c2; 
c3; 


IsSmal1-getSmalltalkState: 


{get the oop of the current method, otMap It, set up the machine’s Instruction pointer registers} 
MAR «- [temp3High, temp3Low + currentMethodOopOffset], LI <- isSmallGettlngSmalItalkState cl- 
CANCELBR[$, 2], uReceiverLow +■ Q, c2 . ’ ' 

otLow ♦- MD, CALL[otMap], C 3 ! 


Q *■ templHigh, 
otMap-return]; 
ipHigh <- Q LRotO, 

ip Low <- templLow + objectHeaderSIze, 
uCurrentMethodHIgh <- Q, 


cl, at[isSmallGettingSmalItalkState , 10 , 

c2; 
c3; 

cl; 
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0 <- templLow, 
uCurrentMethodLow <- Q, 


MAR «- [temp3H1gh, temp3Low + InstructlonPoInterOffsetl. cl- 
CANCELBR[$, 2], Noop, cZ .’ 
temp3Low *■ MD, c3 ; 


flxupInstructlonPoInter: 

{Upon entry, temp3Low must contain the numbe 


... - of Pytes by which to adjust the instruction pointer. IpLow must be the base 

o f the currant compiled method. Either lpLow must be bumped by objectHeaderSIze or temp3Low must account for the object 
header by being overstated by the amount objectHeaderS1ze*2} J 


temp2Low - RShlftl temp3Low{get word offset}, SE <- 0, XC2npcD1sp {see what state pcl6 Is-we want It zero} cl- 
IpLow <- IpLow + temp2Low {add In word offset}, BRANCH[flip, noFlip, 0e],c2; 


flip: 

Cln «- pcl6 {make It zero}, G0T0[pcl61s'ZeroNow], 

noFlIp: 

G0T0[pcl61sZeroNow], 


pcl6isZeroNow: 

MAR [IpHigh, 1pLow+ 0] {read a word of bytecodes}, cl* 
[] temp3Low{determine desired state of pcl6}, YDisp, c2* 
IB «- MD {load up Instruction buffer}, BRANCH[1eaveItBe, makeltl, Oe], c3; 


makeltl: 

Cin «- pcl6, IBPtr <- 1 , G0T0[offToSeeTheWizard], 
leaveItBe: 

GOTO[offToSeeTheWizard], 


offToSeeTheWizard: 

{because the saving of the Mesa state left the Instruction Buffer empty and we then put in one or two bytes, the 

trap t0 the ref111 code at st-Nut-Empty Which will rofill the Instruction Buffer and execute 
another IBOIsp that will take us to the Interpreter for the current bytecode} 


NextBytecode, 

DISPNI[bytecodes], 


saveSmal1talkState: 


{we come here when Rum finds an unpleasant bytecode, or when 
be: 1 for a notYetlnvented bytecode, 0 for a Mesa Interrupt 


a Mesa Interrupt has been set. Upon entry templLow should 
has occurred, and 2 for bytecode failure} 


0 - uRumRecordHIgh {retrieve the Rum Record address}, cl- 
temp3H1gh «- Q LRotO, c2 ! 
temp3Low «- uRumRecordLow, c3 ! 


{write the current stack pointer} 

MAR <- [temp3High, temp3Low + stackPointerLowOffset], cl- 
CANCELBR[$, 2], L00PH0LE[wok}, MDR «• stackLow, c2* 
Noop, c3 : 


MAR <- [temp3High, temp3Low + stackPoInterHighOffset], cl- 

CANCELBR[$, 2], L00PH0LE[wok], MDR - stackHIgh, C 2; 


{adjust the Instruction pointer to make Molasses happy, then write the InstructionPoInter} 
IpLow *- IpLow - objectHeaderSIze, c3 . 


temp2Low uCurrentMethodLow, 

ipLow *- IpLow - temp2Low, 

ipLow <- LShlftl ipLow, SE * pcl6, 

[] *- templLow, YDisp, 

DISP4[smalHalkState], LODisp {in case of bytecode 
CANCELBR[wr1teIp, Of], 

CANCELBR[writeIp, Of], 


cl; 
c2; 
c3; 

cl: 

failure}, c2; 

c3, at[0, 10, smalltalkState]; 
c3, at[1, 10, smalltalkState]: 


templLow e i {tell Molasses to execute this bytecode}, DISP2[1pAdjustment] {bytecode failed - need to fix up Inst 


c3, at[2 
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G0T0[IpAdjusted], 

ipLow *■ IpLow - l, GOTO[IpAdjusted] 

Ip Low <- IpLow - 2, GOTO[1pAdjusted] 

ip Low *- IpLow - 3, GOTOMpAd justed] 
ipAdjusted: 

Noop, 

Noop, 


wrltelp: 

MAR 4 - [tomp3H1gh , temp3Low + InstructlonPoInterOffset], 
CANCELBR[$, 2], L00PH0LE[wok], MDR *■ ipLow , 

Noop, 

MAR *- [temp3H1gh, temp3Low + directlyeOffset], 

CANCELBRJ'S, 2 ], L00PH0LE[wok], MDR <- templLow, 

G0T0[restoreMesaState], 


cl, at[0, 4, IpAdjustment]; 

cl, at[l, 4, IpAdjustment]; 

cl, at[2, 4, IpAdjustment]; 

cl, at[3, 4, IpAdjustment]; 

c2; 
c3; 


cl; 
c2; 
c3; 

cl; 

c2; 

c3; 


{todo — save current method oop} 
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0 *- 7e, 

GOTO[badBytecode], 

cl. 

0 *• 7f, 

GOTO[badBytecode], 

cl, 

0 «- 8a, 

GOTO[badBytecode], 

cl. 

Q * 8b, 

GOTO[badBytecode], 

cl. 

0 <- 8c. 

GOTO[badBytecode], 

cl, 

0 * 8d, 

GOTO[badBytecode], 

cl, 

0 8e. 

GOTO[badBytecode], 

cl. 

Q <- 8f, 

GOTO[badBytecode], 

cl, 


badBytecode: 

G0T0[bailout3], 


bytecoda[7e] 
bytecode[7f] 
bytecode[8a] 
bytecode[8b] 
bytecode[8c] 
bytecode[8d] 
bytecode[8eJ 
bytecode[8f] 
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